sub sorter {
  sprintf"%04d%02d%02d",$hashYear{$a},$hashMonth{$a},$hashDay{$a} <=>
  sprintf"%04d%02d%02d",$hashYear{$b},$hashMonth{$b},$hashDay{$b}
}