while (my $colref = eval { no warnings "numeric"; $csv->getline_hr ($fh)}) {