"id","outcode","lat","lng" 
"1","AB10","57.131086","-2.122482" 
"2","AB11","57.13121","-2.082261" 
"3","AB12","57.098381","-2.172400" 
"4","AB13","57.108","-2.237" 
"5","AB14","57.101","-2.27" 
"6","AB15","57.143396","-2.199525" 
"7","AB16","57.161","-2.156" 
"8","AB21","57.245343","-2.225550" 
"9","AB22","57.187186","-2.131376"

open (INPUT, "<$postcodesandpositionspath") || die "Error while opening INPUT"; 
while (<INPUT>) { 
	next if ($. == 1); 
	my ($id, $outcode, $latitude, $longitude) = $_ =~ m/^\"([^\"]+)\"\,\"([^\"]+)\"\,\"([^\"]+)\"\,\"([^\"]+)\"/; 
	my $data = { 
		'ID' => $id, 
		'Outcode' => $outcode, 
		'Latitude' => $latitude, 
		'Longitude' => $longitude 
	}; 
	$object->{'PostcodesAndPositions'}->{'ByOutcode'}->{$outcode} = $data; 
	$object->{'PostcodesAndPositions'}->{'ByPosition'}->{$latitude . $longitude} = $data; 
} 
close (INPUT) || die "Error while closing INPUT"; 
# 
print Dumper ($object);

'ByPosition' => { 
	'' => { 
		'Longitude' => undef, 
		'Outcode' => undef, 
		'ID' => undef, 
		'Latitude' => undef 
},

#!/usr/local/bin/perl -- 
 
use strict; 
use warnings; 
use Text::CSV; 
use Text::CSV::Slurp; 
use Data::Dumper; 
 
my $csv = Text::CSV->new or die "Cannot use CSV: ".Text::CSV->error_diag(); 
my $csvfile = 'PostcodesAndPostions.csv'; 
 
# Process the csv file line-by-line 
open my $csv_fh, '<', $csvfile or die "Can't open $csvfile $!"; 
<$csv_fh>; # skip over the header line 
 
while ( my $row = $csv->getline( $csv_fh ) ) { 
    print Dumper $row; # $row is an array reference 
} 
 
 
# slup the csv file into a ref of array of hashes 
my $data = Text::CSV::Slurp->load(file => $csvfile); 
print Dumper $data;

D:\perl>perl-1.pl 
$VAR1 = [ 
          '1', 
          'AB10', 
          '57.131086', 
          '-2.122482' 
        ]; 
$VAR1 = [ 
          '2', 
          'AB11', 
          '57.13121', 
          '-2.082261' 
        ]; 
$VAR1 = [ 
          '3', 
          'AB12', 
          '57.098381', 
          '-2.172400' 
        ]; 
$VAR1 = [ 
          '4', 
          'AB13', 
          '57.108', 
          '-2.237' 
        ]; 
$VAR1 = [ 
          '5', 
          'AB14', 
          '57.101', 
          '-2.27' 
        ]; 
$VAR1 = [ 
          '6', 
          'AB15', 
          '57.143396', 
          '-2.199525' 
        ]; 
$VAR1 = [ 
          '7', 
          'AB16', 
          '57.161', 
          '-2.156' 
        ]; 
$VAR1 = [ 
          '8', 
          'AB21', 
          '57.245343', 
          '-2.225550' 
        ]; 
$VAR1 = [ 
          '9', 
          'AB22', 
          '57.187186', 
          '-2.131376' 
        ]; 
 
 
$VAR1 = [ 
          { 
            'outcode' => 'AB10', 
            'lat' => '57.131086', 
            'id' => '1', 
            'lng' => '-2.122482' 
          }, 
          { 
            'outcode' => 'AB11', 
            'lat' => '57.13121', 
            'id' => '2', 
            'lng' => '-2.082261' 
          }, 
          { 
            'outcode' => 'AB12', 
            'lat' => '57.098381', 
            'id' => '3', 
            'lng' => '-2.172400' 
          }, 
          { 
            'outcode' => 'AB13', 
            'lat' => '57.108', 
            'id' => '4', 
            'lng' => '-2.237' 
          }, 
          { 
            'outcode' => 'AB14', 
            'lat' => '57.101', 
            'id' => '5', 
            'lng' => '-2.27' 
          }, 
          { 
            'outcode' => 'AB15', 
            'lat' => '57.143396', 
            'id' => '6', 
            'lng' => '-2.199525' 
          }, 
          { 
            'outcode' => 'AB16', 
            'lat' => '57.161', 
            'id' => '7', 
            'lng' => '-2.156' 
          }, 
          { 
            'outcode' => 'AB21', 
            'lat' => '57.245343', 
            'id' => '8', 
            'lng' => '-2.225550' 
          }, 
          { 
            'outcode' => 'AB22', 
            'lat' => '57.187186', 
            'id' => '9', 
            'lng' => '-2.131376' 
          } 
        ];

next if /^\s*$/;