Nice suggestions. Have you also tried some of these:

Folding:

let perl_fold=1
let perl_fold_blocks=1
[download]

Highlight POD correctly:

let perl_include_pod = 1
[download]

Insert Data::Dumper dumping statement (note that ^[ must be entered as a real escape, use ctrl-V):

imap <F3>  use Data::Dumper; warn Dumper(  );^[hhi
[download]

And one I got from this site, it comments out a block (again ^M is a real return):

map <F8> :'a,.s/^/#/gi^M:nohl^M
[download]

To use this last one, make an 'a' mark (ma) at the top of the block. Move to the bottom of the block and hit F8.

Phil