私なら Schwartzian Transform

@score = map { $_->[0] }
sort { $b->[1] <=> $a->[1] or $a->[0] cmp $b->[0] }
map { [$_, (split /,/)[1]] }
<DATA>;

叩き台にでもなれば。