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