Use split on each value to get a longitude and latitude.

#!/usr/bin/perl
use warnings;
use strict;

my @values = qw/1.0,2.2 2.20394,3.02934 34.0293,34.0293/;
my (@latitudes, @longitudes);
( $latitudes[@latitudes], $longitudes[@longitudes] )
    = split /,/ for @values;
print "Longitudes: @longitudes,\nLatitudes: @latitudes.\n";
[download]

Update: Fixed typo.