Select Code to Download

sub grep_in_place(&\@) {
   my ($cb, $array) = @_;
...
}

grep_in_place { ... } @array;