subs folding fixed

Make a new pull request according your requirements.

In vimrc:

    let perl_fold = 1
    let perl_fold_anonymous_subs = 1

Source for testing can be found at t_source/perl/issue149.t