#! perl -slw
use strict;
use List::Util qw[ min ];
$|=1;

## Original working code.

my $data = <DATA>;

my $depth = 0;
my $indent = '    ';
sub indexBal {
	my( $string, $lookFor, $limit ) = @_;
	my $nesting = 0;
	for( my( $position, $char ) = ( 0, substr $string, 0, 1 );
		$position < min( length( $string ) , $limit );
		$char = substr $string, ++$position, 1
	) {
		$nesting++ if $char =~ m/[\[\{]/;
		$nesting-- if $char =~ m/[\]\}]/;
		die 'Unbalanced' if $nesting < 0;
		return $position if $char eq $lookFor and $nesting == 0
	}
	return;
}

my $string = '';
sub pp {
	my( $s, $max_width, $EOS ) = @_;
	$string .= $s;
#	warn "\npp:'$string'\n";
	while( length( $string ) > $max_width or $EOS and length( $string ) ) {
		my $flag;
		$string =~ m/([\[\{\]\},])/g and my( $position, $first ) = ( pos $string, $1 );
		return unless defined $position;
		if( defined $first and $first ne ',' ) {
			if( $first =~ m/[\]\}]/ ) {
				$position++;
				$depth--;
			}
			else {
				my $position2 = indexBal $string, $first eq '[' ? ']' : '}', $max_width;
				if( defined $position2 ) {
					$position = $position2 + 2;
				}
				else {
					$flag = 1;
				}
			}
		}
		print $indent x $depth, substr( $string, 0, $position );# <STDIN>;
		$string =~ s[^.{$position}\s*][];
		$depth++ if $flag;
	}
}

## Test harness only below here

my $width = $ARGV[ 0 ]||100;
$indent = $ARGV[ 1 ] if @ARGV == 2;

while( length $data ) {
	my $p = 1+rindex( $data, ',', $width+rand( 50 ) )||length $data;
	my $sub = substr( $data, 0, $p, ''  );
	pp( $sub, $width, !length $data );
}

__DATA__
{ a => [ SCALAR(0x18bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], b => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], c => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], d => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], e => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], f => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], g => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], h => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], i => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ], j => [ SELFREF(018bb45c), { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ], { a => b, c => d, e => f, g => h,  }, [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,  ],  ],  }