Re: something weird in this hash sorting

[borisz]

you must sort the keys numerical. try:

for my $ctrl_2 ( sort { $b <=> $a } keys (%final) ){
...
}

and read perldoc -f sort for more information.