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

##</code><code>##

my %rec;
@rec{@fields} = split(/,/, $_, -1);
$record[$row] = \%rec;