%a = ( 1, {a=>b=>c=>d=>}, 2 =>[ 1..5 ] );;
%{ $b{ copy } } = %a;;

print Dumper \%a, \%b;;
$VAR1 = {
          '1' => {
                   'c' => 'd',
                   'a' => 'b'
                 },
          '2' => [
                   1,
                   2,
                   3,
                   4,
                   5
                 ]
        };
$VAR2 = {
          'copy' => {
                      '1' => $VAR1->{'1'},
                      '2' => $VAR1->{'2'}
                    }
        };