[Kingly_Krab]

Change this:

foreach my $entry ($armor_list[$zoneid][$class]) {

To this:

foreach my $entry (@{$armor_list[$zoneid][$class]}) {