Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper(\@newtable);
print "Count is $count\n";
print "State is $newtable[0][3]{STATE}\n";

$VAR1 = [
          [
...
        ];
Count is 1
State is KY