@sorted = sort SortSub @unsorted;
sub SortSub {
  $irgendwas{$a} <=> $irgendwas{$b};
}