my %dates;
while ...
...
$dates{$owner}{$job_id}= DateCalc( $dates{$owner}{$job_id}, ...
...
foreach (keys %{$dates{$owner}}) ...