Select Code to Download

#global hash list example
my %hashList = {}; 
...
#inside procedure "add"
$hashList->{$count} = %secondHash;

my %hashtemp = $hashList->{$count};
while ( my ($key, $value) = each(%hashtemp) ) {
        print "\n$key => $value\n";
}