Fold anonymous Perl subs