my @sorted = sort { $b->{score} <=> $a->{score} ||
                    $a->{name}  cmp $b->{name}    } @data;