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