c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my $hr_same_content = { 1 => 'Ok' };
 ;;
 my %fields = (
   version1    => $hr_same_content,
   version_TWO => $hr_same_content,
   );
 print Dumper \%fields;
 ;;
 $fields{version1}{1} = 'Oops...';
 ;;
 print $fields{version_TWO}{1};
"
$VAR1 = {
          'version_TWO' => {
                             '1' => 'Ok'
                           },
          'version1' => $VAR1->{'version_TWO'}
        };

Oops...

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my %fields;
 %fields = (
   version1    => { 1 => 'Ok' },
   version_TWO => $fields{version1},
   );
 print Dumper \%fields;
 ;;
 $fields{version1}{1} = 'Oops...';
 ;;
 print $fields{version_TWO}{1};
"
$VAR1 = {
          'version_TWO' => undef,
          'version1' => {
                          '1' => 'Ok'
                        }
        };

Use of uninitialized value in print at -e line 1.

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -MData::Dumper -le
"my %fields = (
   version1 => { 1 => 'Ok' },
   );
 $fields{version_TWO} = $fields{version1};
 print Dumper \%fields;
 print $fields{version1}   {1};
 print $fields{version_TWO}{1};
 ;;
 $fields{version1}{1} = 'Oops...';
 ;;
 print $fields{version1}   {1};
 print $fields{version_TWO}{1};
"
$VAR1 = {
          'version_TWO' => {
                             '1' => 'Ok'
                           },
          'version1' => $VAR1->{'version_TWO'}
        };

Ok
Ok
Oops...
Oops...