# my $string = "$month$year1";
my $string = $month;    # separate vars for easier debug
$string .= $year1;      # separate vars for easier debug