c:\@Work\Perl>perl -wMstrict -le
"use List::Util qw(first);
 ;;
 for my $n (0 .. 267) {
   printf qq{$n  } if first {$n == $_} 40, 0, 47, 76;
   }
 print qq{\n----------};
 ;;
 ;;
 for my $n (0 .. 267) {
   printf qq{$n  } if grep { $n == $_ } 40, 0, 47, 76;
   }
"
40  47  76
----------
0  40  47  76