Select Code to Download

foreach $keyscore (sort { $totalscoreinv{$keyscore}{$b}<=>$totalscorei
+nv{$keyscore}{$a} } keys %totalscoreinv) {
   ...
}