@keyscore = sort {$hoa{$a}->[0]->{'score'} <=> $hoa{$b}->[0]->{'score'}} keys %{$hoa}