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

##</code><code>##

my $ar = ['pirate', 'ninja'];
my $arr = \$ar;
my $arrr = \$arr;

dumpomatic( $arrr );