my @wordlist = $line; #split/\t/, $line;