foreach my $a (1 .. 5) {
    next while ($a != 2);
}