my %sought = map {$_ => 1} @prims;

##</code><code>##

if ($sought{$word})