in reply to Re^2: my @Array = $sth->fetchrow_array;
in thread my @Array = $sth->fetchrow_array;

To add to McDarren's excellent reply, in case of doubt why don't you just 
print 0+@Geo_areas;

[download]
to verify it's not empty?

In Section Seekers of Perl Wisdom