Help for this page

Select Code to Download

Select or download this

chomp(my $line = <IN>);
my @head = split(',', $line);
my @cols;
...
  $cols[$_][$row] = $row[$_] for 0..$#row;
  $row++;
}