Select Code to Download

sub num_month{
  my $date = shift;
...

  return $date;  #<----this is the $date from before the foreach loop 
+-- ie, exactly what was passed to the sub
}

use strict;
use warnings;
...
9
10
1