while ( <> ) {
    for my $word ( m{\b(\w+)\b}g ) {
        if (grep {$word eq $_} @prims) {
            print qq{Found $word on line $.\n};
        }
    }
}