For a two level hash, simply create two nested loops.

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