@zeilen=sort{$a->[2] <=> $b->[2]}@zeilen