sub mygrep {
   my $code = shift;
   my (@items) = @_;
  ...;
}