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