Instead of using $mon_$date how about this?

my $newFilename = $date;
$newFilename   .= "_";
$newFilename   .= $month;
[download]

I know it's extra lines of code but is easy to read. I have always like concatenating with '.='. Try it you'll like it.