my_grep (&@){
   my $sub_ref = shift;
   @to_be_filterd = @_;
   ...
}