my %hashList = (); ... $hashList{$count} = \%secondHash; ... my $hashtemp = $hashList{$count}; while ( my ($key, $value) = each ( %$hashtemp ) ) { ... }