for my $key (sort { $ref->{$b}->[CONSTANT] <=> $ref->{$a}->[CONSTANT] } keys %$ref) 

##</code><code>##

for my $key (sort { $ref->{$b} <=> $ref->{$a} } keys %$ref)