use strict;
use warnings;
use Data::Dumper;

my $test="[1,2,3]";
my @var = split(/[\]\[,]/,"[1,2,3]");
print Dumper \@var;

##</code><code>##

 $VAR1 = [
          '',
          '1',
          '2',
          '3'
        ];

##</code><code>##

 use strict;
use warnings;
use Data::Dumper;

my $test="[1,2,3]";
my $empty;
my ($empty,@var) = split(/[\]\[,]/,"[1,2,3]");
print Dumper \@var;