my $raw = Vhash->new(undefined=>0,
			 i=>$p_ids,
			 v=>[qw(so sd no nd)],
			 d=>[Date::range($startdate, $validdate)]);

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

##</code><code>##

package Vhash;

use strict;
use warnings;
use Carp;
use Data::Dumper;

use Storable qw/freeze dclone/;

use overload '==' => \&overload_eq;
sub overload_eq { return freeze($_[0]) eq freeze($_[1]) }

use overload '!=' => \&overload_ne;
sub overload_ne { return freeze($_[0]) eq freeze($_[1]) }

my $joinchar = ",";

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = {};
    bless ($self, $class);
    $self->init(@_);
    return $self;
}

sub copy {
    my ($self) = @_;
    my $new = dclone($self);
    bless($new, ref($self));
    return $new;
}

...more...