Select Code to Download

sub dumpomatic {
    my( $obj, $level ) = @_;
...
    print $prefix. $$obj;
    ...
    print $prefix. $obj;

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

dumpomatic( $arrr );