http://qs321.pair.com?node_id=374737


in reply to Sorting - lower to upper

@keys = ((sort grep(/^[a-z]/, keys %hash)), (sort grep(/^[A-Z]/, keys 
+%hash)));

[download]
We're not really tightening our belts, it just feels that way because we're getting fatter.

In Section Seekers of Perl Wisdom