@pktClassList = @$valref{packetclassifierlist}; print "class = "; foreach my $i (@pktClassList) { foreach my $j (@$i) { print "$j\n"; } } #### ... case /packetclassifierlist/ { $tlvHash{pktClassList} = "@pktClassList" } ... #### ... my ($tlv, %tlvHash) = @_; ... my $classArray = $tlvHash{pktClassList}; foreach my $i (@$classArray) { print "i = $i\n"; foreach my $j (@$i) { print "j = $j\n"; } }