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

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

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