$VAR1 = [
          'BNJ',
          'CGN',
          'DUS',
          'ESS',
          'MGL',
          'SGE'
        ];

##</code><code>##

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