Select Code to Download

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

$ perl test_if.pl
               Rate     _goto _linear_2 _dispatch     _hash    _array
...
_dispatch 1688450/s       35%       12%        --      -33%      -36%
_hash     2513434/s      101%       66%       49%        --       -4%
_array    2621427/s      110%       74%       55%        4%        --