in reply to how to print out side of foreach loop($k1 $a{$k1}) ?

Hi virudinesh

I do not think i understand you requirement clearly.

As you have hash of hashes you need to use loops to iterate over each of them and print the values.

If you do not want to use loop means we have Data::Dumper module to print the data structure.

All is well