Aristotle already told what was wrong, so here is a suggestion for your sort method:

sub sorter {
  "$hashYear{$a}$hashMonth{$a}$hashDay{$a}" <=> "$hashYear{$b}$hashMon
+th{$b}$hashDay{$b}"
}
[download]

T I M T O W T D I