c:\@Work\Perl\monks>perl -wMstrict -le
"my %hit = map { $_ => 1 } 40, 47, 76;
 ;;
 for (my $n = 0;  $n < 268;  $n++) {
   if ($hit{$n}) {
     print $n;
     }
   }
"
40
47
76