my %temp;
 get undef,"db2";
  while(get_next("db2")){
  push(@{$temp{$Name}},$Hersteller);
 }
 get undef,"db1";
  while(get_next("db1")){
  push(@{$temp{$Name}},$Wasanderes);
  push(@{$temp{$Name}},"$Wasauchimmer und $mehr");
 }

 my @temp_sortiert= sort(TempHashSort keys(%temp)); 
 # Sortieren auf erstes Array Element
 foreach(@temp_sortiert){
 out $_," : ",@{$temp{$_}}[0]," : ",@{$temp{$_}}[0],"</br>";
 # Ausgabe: Name : Hersteller : Wasanderes (sortiert nach Hersteller)
 }
sub TempHashSort { #Brauch man für die Sortierung
 if(@{$temp{$a}}[0] lt @{$temp{$b}}[0])
  { return -1; }
 elsif(@{$temp{$a}}[0] eq @{$temp{$b}}[0])
  { return 0; }
 else
  { return 1; }
}