That should work fine for a single level hash e.g

use Data::Dumper;

my %h1 = qw(foo 1 bar 1 baz 1);
my %h2 = %h1;

print Dumper(\%h2);

__output__

$VAR1 = {
          'foo' => '1',
          'bar' => '1',
          'baz' => '1'
        };
[download]

As for deeply copying, you could use the dclone function from Storable (which is a core module) or clone from the aptly named Clone module.
HTH

_________
broquaint