use Clone qw[ clone ];;

my $n = 0; 
my %hash = map{ $_, ++$n} 'a' .. 'e';;

pp \%hash;;
{ a => 1, b => 2, c => 3, d => 4, e => 5 }

my $copy = clone \%hash;;

pp $copy;;
{ a => 1, b => 2, c => 3, d => 4, e => 5 }