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