Select Code to Download

# original
for ($counter = 0; $counter < $array_size; $counter++) {
...
for ($counter = 0; $counter < $array_size; $counter++) {
    print "\t@$states [ 1 ]->[$counter]\n";
}

for my $city (@{ $states->[1] }) {
    print "\t$city\n";
...
for (@{ $states->[1] }) {
    print "\t$_\n";
}