Use of uninitialized value in substitution (s///) at (eval 2) line 21

##</code><code>##

   $hash{$var1}{'string'} = $var2;

##</code><code>##

   { no warnings 'uninitialized'; 
     # and later:  no warnings;
     $hash{$var1}{'string'} = $var2;
   }