my $states = [ ];            # Annonymous array constructed
push @$states, 'Oregon';
print "@$states [ 0 ]\n";

my $city;
my $cities = [ ];            # Inner annonymous array constructed 
push @$cities, "Portland";
push @$cities, "Salem";
push @$cities, "Bend";
push @$states, $cities;

my $counter;
my $array_size = scalar (@$states [ 1 ]);  # here

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