>perl -wMstrict -le
"use Data::Dumper;
 ;;
 my @geo = qw(BNJ CGN DUS ESS MGL SGE);
 print Dumper \@geo;
 ;;
 for my $records (@geo) { print qq{[$records]} }
"
$VAR1 = [
          'BNJ',
          'CGN',
          'DUS',
          'ESS',
          'MGL',
          'SGE'
        ];

[BNJ]
[CGN]
[DUS]
[ESS]
[MGL]
[SGE]