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

$VAR1 = [
          1,
          [
            2,
            3
          ]
        ];