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

my $x = "[1,'test',[{2=>3,3=>'test_56'},[2],[3],3]]";
my $y = eval $x;
print Dumper($y);