Select Code to Download

sub make_hash {
  my %hash;
...

  return \%hash;
}

my $thisDataset = make_hash();

sub do_stuff_to_hash {
  foreach (keys %{$_[0]}) {
...
}

do_something_with_hash($thisDataset);

$thisDataset{$curr_month};

$thisDataset->{$curr_month};