my @x = my ($tok1, $tok2, $tok3, $tok4, $tok5) = split(/\t/,$line);