foreach my $i ( $from .. $to ) {

    if ($i % 2 != 0) { next; }
    elsif ($i % 3 != 0) {next; }
    elsif ($i % 4 != 0) {next; }
    elsif ($i % 5 != 0) {next; }
    else { say $i;}
}