my %hash = map {
                  my $foo;
                  $_ => {
                          key1 => $foo = 'longstring'.$_.'more',
                          key2 => alter( $foo ),
                        }
               } @list;