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

##</code><code>##

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