Select Code to Download

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

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

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