1:
   2:
   3:
   4:
   5:
   6:
   7:
   8:
   9:
  10:

$i = 0;
open IN, "sample.csv";
while (<IN>) {
   my @data = ();
   @data = split (/,/);
   # 二次元配列
   for (0..@data) {$jdata[$i][$_] = "$data[$_]";}
   $i++;
}
close IN;