print "[", # leading bracket
      join(",", # items separated by commas
           map { "'$_'" } # each item surrounded by quotes
               @arr  # the items
          ),
      "]\n"; # end bracket