Select Code to Download

$ perl -MDV -e '$x=%x=@x=(2,3); dv(\*x,[1,undef,3])'
0  GLOB(0x80ffe50)
...
   0  1
   1  undef
   2  3

package DV;
require Exporter;
...
            subdump => 1  );
sub dv { print $dv->dumpValues(@_) };
1;