- or download this
@$points = sort { $a->[3] <=> $b->[3] } @$points;
foreach (@$points) {
print " $_->[3] $_->[0] $_->[1] $_->[2] \n";
}
- or download this
1338020418 33.514447422 9.142337666 16.479736
1338020431 33.514425964 9.142852650 16.960449
...
1338020479 33.514125557 9.145019875 14.557007
1338020484 33.514104099 9.145234451 14.557007
1338020484 33.514104099 9.145234451 14.557007
- or download this
my @unique = uniq @$points;