Here's another way:

use strict;
use Regexp::Match::Any;

my @array = qw(Foo Bar Baz);
my $bigstring = 'whatever';

if($bigstring =~ match_any(\@array)){
    print "It matched\n";
}else{
    print "It didn't match\n";
}
[download]