As I recall, python output data structures use lots of nested brackets. So how about getting eval to unravel them:

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

result:

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