Select Code to Download

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

my %hash = map { $_->[0] => { key1 => $_->[1],
                              key2 => alter($_->[1]) } }
           map { [ $_ => 'longstring'.$_.'more' ] }
           @list;

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

my %hash;
foreach (@list) {
...
   $hash{$_}{key1} = $foo;
   $hash{$_}{key2} = alter($foo);
}

my %hash;
foreach my $key (@list) {
...
      };
   }
}

my %hash;
foreach my $key (@list) {
...
      $hash{$key}{key2} = alter($_);
   }
}

my %hash = map { $_ => { key1 => 'longstring'.$_.'more' } }
           @list;

$hash{$_}{key2} = alter($hash{$_}{key1})
   foreach keys %hash;