my $line = $_;
	if (/^\s*(-\d+\.*\d*),(\d+\.*\d*),(\d+\.*\d*),(\S+),(\S+),(\S+),(\S+)$/) {
        my $data1 = $1;
        my $data2 = $2;
        my $data3 = $3;
        my $data4 = $4;
        my $data5 = $5;
        my $data6 = $6;

        $hash{data2}{data1}{data3} = $data3;
        $hash{data2}{data1}{data4} = $data4;
        $hash{data2}{data1}{data5} = $data5;
        $hash{data2}{data1}{data6} = $data6;