sub by_month {
  ($a=~/(...)(..)/,sprintf('%02d%02d',$2,$mon->{ucfirst lc $1})) 
    <=>
  ($b=~/(...)(..)/,sprintf('%02d%02d',$2,$mon->{ucfirst lc $1}));
}