see keys...

foreach my $outter (keys %hash) {
  foreach my $inner (keys %{$hash{$outter}}) {
    print "$outter - $inner = ", $hash{$outter}{$inner}, "\n";
  }
}
[download]