#!/usr/bin/perl
use strict;
use warnings;

my @array = qw( a b c );
{
  local $" = '],[';
  print "[@array]\n";
}