# ...

my @max_length;
# Zeilenweise lesen
while ( my $row = $csv->getline(<$fh>) ) {
  # Spalten pro Zeile durchgehen
  for my $i ( 0 .. $#$row ) {
    # max_length pro Spalte aktualisieren, wenn aktueller Laenge groesser als aktuelle max_length der Spalte
    $max_length[$i] = length($row->[$i])  if $max_length[$i] < length($row->[$i]);
  }
}