my $i = -1;
%record = map {defined($fields[++$i]) ? ($fields[$i] => $_) : ()} (split /\t/, $_);