my $header = $csv ->getline ($fh);
  print Dumper(\$header), "\n";