Podmaster, Heres whats happening. Ive got a scalar full of number values, some negative. It is stored in $sorted. From there the code goes like this

foreach my $sorted(@sorted){
    $scorehash{$sorted} = undef;
    }
    print Dumper(%scorehash);
    my @ranks2 = sort { $b <=> $a } keys %scorehash;
    print Dumper(\@ranks2);
    print $ranks2[0];
[download]

the output is all the values not in order for both printings. Thanks