my %location_data;
foreach  (@values) {
    my @vals = split /,/, $_;
    push @{$location_data{lat}}, $val[0];
    push @{$location_data{lon}}, $val[1];
}

##</code><code>##

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