Select Code to Download

$totalscoreinv{$key1}{key2}= $totalscore;

...
sub by_score {
 $totalscoreinv{$keyscore}{$b}<=>$totalscoreinv{$keyscore}{$a};
}

 First key:700200
-----------------------------------------------------------
...
                523424=  -521.488541326437
                523247=  -470.547762535975