Select Code to Download

#!/usr/bin/perl

...
        Rate  keys while
keys  5.23/s    --  -26%
while 7.05/s   35%    --

for my $k1 (keys %hash) {
    for my $k2 (keys %hash) {
...
    %hash = ();
    ....
}