Select Code to Download

#! /usr/bin/perl -w
use Data::Dumper;
...
foreach my $records (@geo){
 print "$records\n";
}

$VAR1 = [
...
          'SGE'
        ];