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

my $s = "[1, [2, 3, 4, [5, 6]]]";
my $safe = new Safe;
my $obj  = $safe->reval($s);

die $@ if $@;

print Dumper($obj);