sub sorter { "$hashYear{$a}$hashMonth{$a}$hashDay{$a}" <=> "$hashYear{$b}$hashMonth{$b}$hashDay{$b}" }