Select Code to Download

#!/usr/bin/perl
use strict;
...
        #no proc
    }
}

###count=10000,keys###
before    : size=8708096
...
after hash: size=581230592
after loop: size=582279168
time=225.191