my @sorted = map{$_->[0]}sort{$a->[1]->[-1] <=> $b->[1]->[-1]}map{[$_,[split(/ /,$_)]]}@geparst;  # Sortieren nach dem letzten Arrayfeld
my $anzahl = @sorted;

open(DATEI,">datei.txt") || die $!;
print DATEI $_ for(@sorted);
close(DATEI);