Select Code to Download

my %b;
foreach (@a) { $b{$_} = 1 if defined $_ }

use Benchmark ':all';

...
         Rate     map foreach
map     374/s      --    -44%
foreach 673/s     80%      --