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

See sort !