sub foo(&@)
{
    my $code = shift;

    # whatever ...
}

##</code><code>##

foo {$_ =~ /foo/} $a, $b, $c;

##</code><code>##

foo({$_ =~ /foo/} $a, $b, $c);

##</code><code>##

my @x = grep({$_ =~ /foo/} @list);