perl -we "use Data::Dumper; %x = (1,2,3,4); $y = {%x}; print join $/, $y, \%x, Dumper($y);"

HASH(0x1a7f1a8)
HASH(0x1a72abc)
$VAR1 = {
          '1' => 2,
          '3' => 4
        };