In newer version of Perl (don't know which exactly, but probably 5.8.0 and up), you can get rid of the local completely:

I know this sytax works in perl 5.6.1