my $modified = [];
for my $point (@points) {
    if (@$modified and $modified->[-1][0] > $point->[0]) {
        pop @$modified;
    } else {
        push @$modified, $point;
    }
}