Select Code to Download

my @numbers = (1..6);
foreach my $number (@numbers) {
    print $number;
}

my @numbers = (1..6);
foreach my $number (@numbers) {
    last if $number == 4;
    print $number;
}

my @numbers = (1..6);
foreach my $number (@numbers) {
...
   return ($num % 2);
   # will skip over odd numbers
}