Select Code to Download

package items;
use strict;
...
    eval ("$items{3}{Value} = 2;");            # ERROR: Use of uniniti
+alized value in concatenation (.) or string at items.pm line 16.  (th
+is line)
    print( Data::Dumper->Dumpxs( [ \ %items ], [ qw{ *items } ] ));
}

%items = (
           '1' => {
...
                    'Value' => 2
                  }
         );