my $header_line;
while (<$fh>) {
  next unless /^fieldname/; # skip to header line
  $header_line = $_;
  last;  ####### ADDD THIS #####
}