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

 my (undef, @elements_we_want) = grep { $_ eq $look_for .. 1 } @array;

 return @elements_we_want;
}

##</code><code>##

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