open(DATEI,"datei.txt") || die "Apothekenfile nicht gefunden";
my @unsorted = <DATEI>;
close(DATEI);

my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@unsorted;

open(SERVER1,">>apo_server1.txt") || die "Datei     apo_server1.txt nicht gefunden";
print SERVER1 $_ for(@sorted);
close(SERVER1);