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