sub PushDate { $x=0; if (($Date) == $StartDate[2]) { push (@DayAway, $id,$x,$Key) } while ($x < 7) { if (($Date + $x) gt $MaxDays) { $DaysAway = $MaxDays - $Date + $x; # need to see if we are one month ahead!!! } elsif (($Date + $x) == $StartDate[2]) { push (@DayAway, $id,$x,$Key); } $x=$x+1; } }