Select Code to Download

use warnings;
use strict;
...
        = (1) x @{ $_[1] } for @{ $_[0] };
    return \%hash;
}

ok 1 - Control matched.
ok 2 - Control matched.
...
foreach     60.2/s       1065%         23%          --        -37%
sliced      96.2/s       1760%         96%         60%          --
1..3