Help for this page
$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"; }