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