#!/usr/bin/perl
use strict;
use warnings;

my $file='test.txt';

my @koordinates;

open(my $fh, '<', $file) or die("Error open $file ($!)\n");
while($line=<$fh>)
{
  # angenommen die Koordinaten stehen als "x,y,z" in der Datei.
  my @values=split(/\s*,\s*/,$line);
  push(@koordinates,\@values);
}
close($fh);

# nach Dritter Spalte Sortieren.
my @sorted=sort{$a->[2] <=> $b->[2]}@koordiantes;

# Ausgabe
print join(',',@$_)."\n" for(@sorted);