Select Code to Download

#!/usr/local/bin/perl
use Benchmark;
...
  @hash{@rvs} = (1) x @rvs;
  return 1 if ($hash{$array[0]});
}

Benchmark: timing 100 iterations of grepit, hashit...
    grepit: 19 wallclock secs 
...
Grepit found the number
Hashit found the number