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