Select Code to Download

my @unique = uniq @$points;

my %seen;
@unique = grep { ! $seen{join(q{,}, @$_)}++ } @$points;

$ perl -Mstrict -Mwarnings -e '
my ($points, %seen, @unique);
...
1338020459 33.514211388 9.144140110 16.479736
1338020479 33.514125557 9.145019875 14.557007
1338020484 33.514104099 9.145234451 14.557007

foreach (@$points) {
  print " $_->[3] $_->[0] $_->[1] $_->[2] \n";
}

print " @{$_}[3,0,1,2] \n" for @$points;