my ($month, $day, $year) = split /\//, $hash{Date};