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";
		}
}