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