Select Code to Download

use strict; use warnings;
use List::Util 'all';
...
if ( $all_found ) {
    ...
}

my %hash = @allwords; #puts array in hash to search / compare.

@array = ('foo', 'bar', 'baz', 'qux');
%hash = map { $_ => 1 } @array;

if (exists $hash{'word1' && 'word2' && 'word3'}) {
   ...do stuff ;
}

if ( exists $hash{'foo'} and exists $hash{'bar'} ) {
    ...
}

if ( grep { $_ eq 'word1' && 'word2' } @allwords ) {
    ...do stuff; 
}