my %newhash = %hashcopy;

##</code><code>##

use Storable qw(dclone);

my %newhash = %{dclone(%hashcopy)};