#!/usr/bin/perl

use integer;

my $i = 0;
while ($i += 20) {
    last unless ($i % 3
          or $i % 6
          or $i % 7
          or $i % 8
          or $i % 9
          or $i % 11
          or $i % 12
          or $i % 13
          or $i % 14
          or $i % 15
          or $i % 16
          or $i % 17
          or $i % 18
          or $i % 19
          or $i % 20);
}
print "Number: $i\n";