$csv->column_names($csv->getline($fh)) {
 print $_ for @$row;
}

謎すぎる構文