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

##</code><code>##

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