Select Code to Download

my %forward = (
  a => 1,
...
for (sort keys %reverse) {
  print $_, ":", $reverse{$_}, "\n";
};

use strict;
use warnings;
...

print $_, ":", $reverse_month{$_},"\n"
  for sort { $a <=> $b} keys %reverse_month;