subs folding fixed

Make a new pull request according your requirements.

In vimrc:
let perl_fold = 1
let perl_fold_anonymous_subs = 1