Select Code to Download

my %location_data;
foreach  (@values) {
...
    push @{$location_data{lat}}, $val[0];
    push @{$location_data{lon}}, $val[1];
}

my @locations = [map {split /,/, $_]} @values;