my $flag = 0;
foreach my $var (@somearray){
   if($var eq "foo"){  $flag = 1; last;}
}

if($flag eq "1"){ &someaction;}