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