print "\nLoop 3";
B: for my $a ( 0 .. 9 ) {
    for my $b ( 2..4 ) {
        unless( $a % $b ) {
            next B;
        }
    }
    print $a;
}
[download]

Best regards
McA