@pktClassList = @$valref{packetclassifierlist};
print "class = ";
foreach my $i (@pktClassList) {
  foreach my $j (@$i) {
    print "$j\n";
  }
}

##</code><code>##

...
case /packetclassifierlist/	{ $tlvHash{pktClassList} = "@pktClassList" }
...

##</code><code>##

...
my ($tlv, %tlvHash) = @_;
...
my $classArray = $tlvHash{pktClassList};

foreach my $i (@$classArray) {
  print "i = $i\n";
  foreach my $j (@$i) {
    print "j = $j\n";
  }
}