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