I use Data::Dumper->Dump( ARRAYREF, ARRAYREF ). You have to pass in the name, but it gives you what you're asking for:

use warnings;
use strict;
use Data::Dumper;

my @data = (qw(foo bar bazz));

print Data::Dumper->Dump([\@data], ["data"]);
[download]

outputs:

$data = [
          'foo',
          'bar',
          'bazz'
        ];
[download]