OUTER: foreach my $i ( $from .. $to ) {
    for (2 .. 5) { next OUTER if $i % $_; }
    say $i;
}