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