Select Code to Download

use strict;
use warnings;
...
    _dispatch      => q {test6("2.01.000")},
    }
)

$ perl test_if.pl
                 Rate _hash_regex     _goto linear_1 linear_2 _dispatc
+h   _array
...
_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
+%       --