http://www.perlmonks.org?node_id=108183


in reply to sorting by quarterly calendar

This is in the FAQ, How do I sort something by date?. 

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[download]

In Section Seekers of Perl Wisdom