The Perl Cookbook has an example of how to do this, and you can also take a look at the List::Util source, it has a reduce method as well.

I think you have to enter the local variables $a and $b into the caller's namespace.