foreach my $key (keys %stats) { foreach my $subkey (keys %{$stats{$key}}) { foreach my $sub2key (keys %{$stats{$key}{$subkey}}) { print "$key => $subkey => $sub2key: " . $stats{$key}{$subkey}{$sub2key} . "\n"; } } }