#!/usr/bin/perl -w
use strict;

my @arr = qw(book dog cat);

print "[",
      join("," , map {qq('$_')} @arr),
      "];\n";