sub sortKeys {
    ( my $left  = $a ) =~ s/(\D+)(\d+)/$2 . $months->{$1}/e;
    ( my $right = $b ) =~ s/(\D+)(\d+)/$2 . $months->{$1}/e;
    return ( $left cmp $right );
}