while (@entries){

	my $top_entry = shift @entries;
	my $counter = 0;
		
	foreach my $entry_to_compare (@entries){
		my $comparison = compare_sub ($top_entry, $entry_to_compare);
		if ($comparison <= $user_defined_value){		
			splice (@entries, $counter, 1);
		}
		else{
			$counter++;
		}
	}
}