my $var ='[1,2]';
my @array = map { 0+$_ } split ',', substr($var,1,-1);