$ perl test_if.pl Rate _hash_regex _goto linear_1 linear_2 _dispatch _array _hash_regex 831494/s -- -29% -46% -52% -54% -70% _goto 1173439/s 41% -- -24% -32% -36% -57% _linear_1 1538868/s 85% 31% -- -10% -16% -44% _linear_2 1714704/s 106% 46% 11% -- -6% -37% _dispatch 1827212/s 120% 56% 19% 7% -- -33% _array 2735932/s 229% 133% 78% 60% 50% --