ahoy(\@points);

sub ahoy {
    my( $points ) = @_;
    my @ten;
    for my $point ( @$points ){
        push @ten, $point;
        if( @ten > 1    and     $ten[-1][0] < $ten[-2][0]   ){ ## backing up? ditch it
            splice @ten, -2; ## pop pop @ten;
        }
        
        if( @ten > 9 ){
            print join ' ', @$_ for splice @ten, 0, 8 ; ## shift 8
        }
    }
    print join ' ', @$_ for @ten;
    print '####';
}