my ($pv, $iv, $nv, $rv, $hm) = DDual ($var [, $getmagic])