my @cleanwords = qw (hut hat);
my @allwords = qw (hit het hat);
foreach my $var (@cleanwords)
{
if (any { $var eq $_} @allwords) {
		print "Found: ",$var, "\n";
		}	
		else {
		print $var," not found\n";
		}
}


##</code><code>##

use File::Slurp::Tiny 'read_file';
my @allwords = read_file ($ref);

##</code><code>##

foreach (@allwords){
print "allwords: ",$_,"\n";
}