Use a prototype. Here is an example from Graham Barr's List::Util:

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

  foreach (@_) {
    return $_ if &{$code}();
  }

  undef;
}
[download]

which is invoked as

# first defined value in @list
$foo = first { defined($_) } @list;
[download]

-Mark