for $varctry(keys %hash) { for $varerror(@$hash{$varctry}) { for $varmsgtype(@$hash{$varctry}{$varerror}) { print "Country $varctry with error $varerror for msg $varmsgtype has $hash{$varctry}{$varerror}{$varmsgtype}{count} errors\n"; } } }