break Befehl in Perl

Question

Wie kann ich eine Schleife in Perl abbrechen wie mit break?

my $count = 0;
while ($count < 5) {
    print "$count\n";
    $count++;
}

Answer 1

Dazu gibt es das Keyword last.

my $count = 0;
while ($count < 5) {
    print "$count\n";
    $count++;

    last if $count == 3;

}