ci,14938340,2,"Monday, February 21, 2011 19:58:06 UTC",34.6953,-118.5350,2.2,17.40, 9,"Southern California" 

##</code><code>##

@data1 = ($line =~ m/ *([a-z]+) *, *(\d+) *, *(\d+) *, *\"(.*?)\" *, *([\d\.]*) *, *([\d\.]*) *, *([\d\.]*) *, *([\d\.] *) *, *([\d\.]*) *, *\"(.*?)\" */gi); 

$d = $4; 
$g = $7; 
$j = $10; 
$h = $8; 
$e = $5; 
$f = $6; 

##</code><code>##

my ($a,$b,$c,$d,$e,$f,$g,$h,$i,$j) = @data1;