$VAR1 = [ 14, 28, 42, 56, 70, 84, 98, 112, 126, 140 ];
ok 1 - grep
ok 2 - hash
ok 3 - regex
1..3
          Rate  grep regex  hash
grep   33107/s    --  -49%  -85%
regex  65160/s   97%    --  -70%
hash  218506/s  560%  235%    --