use Data::Dumper;

$Data::Dumper::Indent = 0;

my @arr = qw(book dog cat);
print Dumper(\@arr);

##</code><code>##

my @arr = qw(book dog cat);
print "[" . join(',', @arr) . "];\n";