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
}