fooaction() if grep { $_ eq "foo" } @somearray;
baraction() if grep { $_ eq "bar" } @somearray;

##</code><code>##

my $fooflag = 0;
my $barflag = 0;
foreach my $var (@somearray){
   if($var eq "foo"){  $fooflag = 1;}
   if($var eq "bar"){  $barflag = 1;}
}

if($fooflag eq "1"){ &fooaction;}
if($barflag eq "1"){ &baraction;}