Quoting Eric Berggren <ericb at fpt.fujitsu.com> [Feb 27, 2002 15:21]:
>     # (leave @PrioritySortedKeys alone; used to set label for priorities)
>     @PrioritySortedKeys = reverse sort { $PriorityLabels{ $a } <=>
>                                          $PriorityLabels{ $b } }
>                                   keys %PriorityLabels;
I'm lurking on this thread, but I wanted to make a suggestion
here:
     @PrioritySortedKeys = sort { $PriorityLabels{ $b } <=>
                                  $PriorityLabels{ $a } }
                           keys %PriorityLabels;
Save yourself a function call...
(darren)
-- 
Language is not neutral. It is not merely a vehicle which carries
ideas.  It is itself a shaper of ideas.
    -- Dale Spender