in reply to something weird in this hash sorting
you must sort the keys numerical.
try:
and read perldoc -f sort for more information.for my $ctrl_2 ( sort { $b <=> $a } keys (%final) ){ ... }
Boris
In Section
Seekers of Perl Wisdom