my %find;
@find{ qw( this that other ) } = ();
my $found = grep { exists $find{$_} && ( delete $find{$_} || 1 ); } @big_list;
print "Success!\n" if $found == 3;