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

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

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

##</code><code>##

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