open(DATEI,"datei.txt") || die "Apothekenfile nicht gefunden";
while(<DATEI>) 
{
   open(SERVER1,">>apo_server1.txt") || die "Datei     apo_server1.txt nicht gefunden";
   {
            @unsorted = "$_";
            my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@unsorted;
            print SERVER1 $_ for(@sorted);
            
   }
   close(SERVER1);
}
close(DATEI);