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

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

 return @elements_we_want;
}