use Storable qw(dclone);

...

my $deepcopy = dclone($original);