Select Code to Download

my $raw = Vhash->new(undefined=>0,
             i=>$p_ids,
...

my $xx = $raw->copy;
if ($xx == $raw) {print "hurrah\n";} else {print "nope\n";}

package Vhash;

...
}

...more...