Select Code to Download

use warnings;
use strict;

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

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