foreach(sort byval keys %index)
{
...
}

sub byval
{
   return ($score{$a} <=> $score{$b})
}