perl -e '@a = qw(book dog cat); print "[".join(",",@a)."];\n";'