$name =~ s/_(\d\d)(...)(\d\d:\d\d)/;
  $key = $month{$2} . $1 . $3;