Select Code to Download

$aray_size = scalar (@$states[ 1 ]);

my $states = [ ];            # Annonymous array constructed
push @$states, 'Oregon';
...
for ($counter = 0; $counter < $array_size; $counter++) {
print "\t@$states [  1 ]->\[$counter\]\n";
}