Um, this part won't work:

    $date=~s/(\d\d)-(\d\d)-(\d\d)/$3-$2-$1/; #normalize date so it is 
+easier to sort
[download]

... at least, not until you do something to convert the 3-letter month abbrevs in your DATA (and in the OP) into two-digit month numbers. (Date::Calc is the do-all module, of course, but for something like this, just a 12-element lookup hash would do fine.)