@sorted = sort {
	                              $a->{ID} cmp $b->{ID} # alphanum asc
	                                  or 
  	                              $b->{Score} <=> $a->{Score} # num. desc
                                  } @entry