$ perl -MDV -e '$x=%x=@x=(2,3); dv(\*x,[1,undef,3])'
0  GLOB(0x80ffe50)
   -> 
         ${*main::x} = 2
         @{*main::x} = (
            0  2
            1  3
         )
         %{*main::x} = (
            2 => 3
         )
1  ARRAY(0x80f5fc4)
   0  1
   1  undef
   2  3

##</code><code>##

package DV;
require Exporter;
@ISA = qw(Exporter);
@EXPORT = qw($dv dv);
use Dumpvalue;
$dv = Dumpvalue->new(globPrint => 1,
            DumpReused => 0, 
            printUndef => 1, quoteHighBit => 1,
            subdump => 1  );
sub dv { print $dv->dumpValues(@_) };
1;