Tweak perl 'sub' snippet