@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;