Select Code to Download

my %hash = map {
                  my $foo;
...
                          key2 => alter( $foo ),
                        }
               } @list;

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