Select Code to Download

#!/usr/bin/env perl -l

...
    print '*** kens_code ***';
    print "@{[ $_, $#{$bar->{$_}}, $bar->{$_}[0] ]}" for keys %$bar;
}

*** op_code ***
1275 1999999 v-w-x-y-z
...
kens_code: 23.075756
*** Compare ***
kens/op:   72.144941%