while (my $h = $csv->getline_hr ($fh)) {
    print "You fetched ", $csv->{field_count}, " fields into your hash\n",
    }