sub dumpomatic {
    my ($obj) = @_;
    if (ref($obj) eq 'ARRAY') {
        print "[ ";	
		for my $index (0.. $#$obj) {
			dumpomatic($obj->[$index]);
			print ", " if $index < $#$obj;
		}
		print " ]";
    } elsif (ref($obj) eq 'HASH') {
        my @keys = sort keys %$obj;
		print "{ ";
		for my $index (0.. $#keys) {
			print "$keys[$index] => ";
			dumpomatic($obj->{$keys[$index]});
			print ", " if $index < $#keys;
		}
        print " }";
    } elsif (ref($obj) eq 'SCALAR') {
        print $$obj;
    } else {
		print $obj;
	}
}