($a, $b, $c, $d, $e, $f, $g) = split(/\t/, $Line);
				
			  
if ($a =~ /([A-Za-z0-9-_]+)/) {
				
     push(@a, $a); 
					
} 
					
else { 
				
     push(@a, "NA"); 

} and 19 more