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