matrix

#データを行列の形にする
    foreach my $line (@lines){
        @tmp=split /,/, $line;#$lineは一行
            #warn @tmp;
            for($j=0;$j<scalar(@tmp);$j++){
                #warn $tmp[$j];
                $data[$i][$j]=$tmp[$j];
            }
            $i++;
    }