my @entries = ...;
my $top_entry = shift @entries;
my @keepers;

for (@entries) {
    my $comparison = compare_sub( $top_entry, $_ );
    if ( $comparison > $user_defined_value ) {
        push @keepers, $_;
    }
}