my @arr = qw(book dog cat);
{
    local $" = "','";
    print "['@arr'];\n";
}