Select Code to Download

my (%hash, @array);

...
@hash{@array} = (1) x @array;

if (exists $hash{'one'}) { .... }

use Benchmark qw(timethese);

...
      grep: 26 wallclock secs (26.19 usr +  0.00 sys = 26.19 CPU) @ 11
+454.75/s (n=300000)
       map: 222 wallclock secs (222.51 usr +  0.00 sys = 222.51 CPU) @
+ 1348.25/s (n=300000)
       xop: 93 wallclock secs (93.05 usr +  0.00 sys = 93.05 CPU) @ 32
+24.07/s