Select Code to Download

use warnings;
use strict;
...
my @data = (qw(foo bar bazz));

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

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