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

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