Select Code to Download

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

my $fooflag = 0;
my $barflag = 0;
...

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