sub dumpomatic {
    my( $obj, $level ) = @_;
    $level ||= 0;
    my $prefix = "  " x $level;
    ...
    print $prefix. "[";
    ...
    print $prefix. "{";
    ...
    print $prefix. $$obj;
    ...
    print $prefix. $obj;