use Data::Dumper;
my $python = '[1,[2,3]]';
my $perl = eval( $python . ';' );
print Dumper( $perl );