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
Back to
Seekers of Perl Wisdom