http://qs321.pair.com?node_id=1035781

virudinesh has asked for the wisdom of the Perl Monks concerning the following question:

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

my %a=(); $a{1}{"a"}{"A"}="FIRST"; $a{1}{"c"}{"B"}="THIRD"; $a{1}{"b"}{"C"}="SECOND"; foreach my $k1 ( sort keys %a ) { foreach my $k2 ( sort keys %{$a{$k1}} ) { foreach my $k3 ( sort keys %{$a{$k1}{$k2}} ) { print "$a{$k1}{$k2}{$k3}\n"; } } }

its print hash variable only inside of foreach loop

i want to print outside of loop in $a{$k1}{$k2}{$k3} this variable