foreach my $records (@geo){
 print "$records\n";
}