my @m;
@m&&$m[-1][0]>$_->[0]?pop @m:push @m,$_ for @points;