sub mygrep (&@) mygrep { /foo/ } $a, $b, $c

However, I seem to remember a thread a few months back where a monk said it was not worth the hassle. Example lifted from the docs:

#!/usr/bin/perl
use strict;
use warnings;

sub mygrep (&@) {
    my $code = shift;
    my @result;
    foreach $_ (@_) {
        push(@result, $_) if &$code;
    }
    @result;
}

print join "\n", mygrep { /a/ } qw(cat hat bed den);
[download]

Update: I did some searching , but did not uncover the article I was thinking of. I did come across some thoughts from GrandFather, but they did not contain a compelling argument, at least to my eyes.

Update 2: And disregard the above. Somehow I hadn't processed the word "method" from the above.