my ($day_of_month, $month, $year) = (localtime($file1[10]))[3..5];