#global hash list example
my %hashList = {}; 

#second global hash
my %secondHash = (  
	car => "NULL",
	bike => "NULL",
	cat => "NULL",
	etc => "NULL",
);

#inside procedure "add"
$hashList->{$count} = %secondHash;


##</code><code>##

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