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