no strict 'refs';
      my %actions = ( 
        GLOB  =>  ($p->{implicit_io}? *IO_glob: *NIO_glob),
        IO    =>  ($p->{implicit_io}? *IO_io   : *NIO_io),
        REF   =>  sub(){ "\\" . $p->Px($$_, $lvl-1) . ' '},
        SCALAR=>  sub(){ $pkg.'\\' . $p->Px($$_, $lvl).' ' },
        ARRAY =>  sub(){ $pkg."[". 
                        (join ', ', map{ $p->Px($_, $lvl) } @$v ) ."]" },
        HASH  =>  sub(){ $pkg.'{' . ( join ', ', @{[
                    map {$p->Px($_, $lvl, 1) . '=>'. $p->Px($v->{$_}, $lvl,0)} 
                    sort  nonrefs_b4_refs keys %$v]} ) . '}' },);
      if (my $act=$actions{$ref}) { &$act } 
      else { return "$v" }