#!/usr/bin/perl

OUTER:
for (my $i = 20; ; $i += 20) {
    foreach (my $j = 1; $j < 20; $j++) {
        next OUTER if ($i % $j);
    }
    print "Number: $i\n";
    last;
}