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

##</code><code>##

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

##</code><code>##

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

sub next_loop {
   # return some true or false value
   my $num = shift;
   return ($num % 2);
   # will skip over odd numbers
}