while(<FIRSTFILE>) {
 ($key, $rest) = split;
 $list{$key}= $rest;
}
while(<SECONDFILE>) {
 ($key, $rest) = split;
 $list{$key}.= " " .$rest;
  
}
for(sort keys %list) {
  print "$_\n";
}