use warnings;
use strict;

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

##</code><code>##

print "[",
	  ( @arr2 ? "'" . join( "','", @arr2) . "'" : ''),
	  "];\n";