Select Code to Download

$VAR1 = [
          'BNJ',
...
          'MGL',
          'SGE'
        ];

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