while( @entries ) {
    my $top = shift @entries;
    @entries = map { compare_sub( $top, $_ ) > $user_defined_value ? $_ : () } @entries;
}