my $date = sprintf("%4d%02d%02d", $+{year}, $months{$+{month}}, $+{day});