use Date::Calc qw(Delta_Days);

$day_diff{$name} = abs(Delta_Days(2000, $actual_month, $
actual_day, 2000, $guess_month, $guess_day));