Select Code to Download

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

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