Select Code to Download

sub blah {
 my($look_for, @array)=@_;
...

 return @elements_we_want;
}

my @a = qw(hubba bubba abba zappa);
blah("bubba", @a);   # this gives qw(abba zappa) as desired