use warnings;
use strict;

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