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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

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