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

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