foreach my $i (0..$#line) {
  $record[$row]{$fieldname[$i]}=$line[$i];
}