That's great, but those points aren't mutually exclusive. We really need you to answer all of them to provide you with any useful information.

TIP: Put use strict; at the beginning of this script, and every script you write from now on. You'll thank me one day.

1. I answered your second point in my reply to matija
2. The input is a huge hash (HOH) table with the same data distribution you can see in the results table(second point).
3. The code I provided is an excerpt of a whole program, and the only thing is missig is the sorting. I am using strict and warnings.
4. I really don't know what else you need unless you want the whole program that is more than 6 pages
Thanks

Give this a shot:

#! /usr/bin/perl
use strict;
*OUT = *STDOUT;

my %totalscoreinv;
$totalscoreinv{700200} = {
    523246 => -438.024029240629,
    523247 => -470.547762535975,
    523237 => -494.393864137596,
    523261 => -509.711586526694,
    523424 => -521.488541326437
};

foreach my $keyscore (keys %totalscoreinv) {
    print OUT "\n\nFirst key:$keyscore\n";
    foreach my $keyscore2 ( sort 
                            {$totalscoreinv{$keyscore}{$b}
                             <=>
                             $totalscoreinv{$keyscore}{$a}}
                            keys %{$totalscoreinv{$keyscore}} ) {
        printf OUT "%30s %s\n",
                   "$keyscore2= ",
                   $totalscoreinv{$keyscore}{$keyscore2};
    }
}
[download]


_______________
DamnDirtyApe

Those who know that they are profound strive for clarity. Those who
would like to seem profound to the crowd strive for obscurity.
            --Friedrich Nietzsche