#! /usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my @final;
my @geo;
my $derefrecord;
use Win32::OLE;  #Used for Geosearch and Currency
my $fso = Win32::OLE->new("HHCOM.GeoSearch.CircleRangeSearch");
@geo = $fso->FindLocationsInCircleRange("CGN",75) ;
print Dumper(@geo);

foreach my $records (@geo){
 print "=>@$records<=\n";
 $derefrecord="@$records";
}

print "$derefrecord\n";

my @GEORECORD = split(" ", $derefrecord);

foreach (@GEORECORD){
	print "$_\n";
}

Output of print Dumper(@geo);
$VAR1 = [
          'BNJ',
          'CGN',
          'DUS',
          'ESS',
          'GKE',
          'MGL',
          'SGE',
          'WID'
        ];

##</code><code>##


=>BNJ CGN DUS ESS GKE MGL SGE WID<=

##</code><code>##


BNJ
CGN
DUS
ESS
GKE
MGL
SGE
WID