I think you might be able to do this, if I correctly understood what you want to do:

# Assume you already have $key1
foreach $key2 (keys %{$myhash{$key1}}) {
   print "Key: $key2\nValue: ";
   print $myhash{$key1}{$key2}."\n\n"; 
}
[download]