Select Code to Download

my %month_key_lookup = (
    'Jan' => 'a',
...
    map { /^(.{3}) (\d?)(. .*)/s;
          $month_key_lookup{$1}.($2||'0').$3.$_ }
    @dates;