for the same goal, letting Data::Dumper dump out with the variable name, i wrote a little vi mapping:

:imap dumper <ESC>^iwarn Data::Dumper->Dump([\<ESC>llyw$a], ['<ESC>pa']);<ESC>

type in

my @array = function();
@arraydumper
[download]

and get

my @array = function();
warn Data::Dumper->Dump([\@array], ['array']);
[download]

i use this regularly, it's a real help for debugging.