my @a = map defined $_ ? $_ : 'NA', split /\t/, $line;