>>475
@list = map [split /,/, $_], @csv_list;

わかりにくければ泥臭く

foreach my $i (0..$#csv_list) {
my $j = 0;
foreach my $data (split /,/, $csv_list[$i]) {
$list[$i][$j++] = $data;
}
}

とかでもいいとは思うが。