my @arr = qw(book dog cat);
print "[" . join('',', @arr) . "]\;,\n";'