my @allwords = split /\n/, read_file($ref);