print $k,":",$subkey,":",$hash{$k}->{$subkey},"\n";