$cutover=(split /:/,$time)[0];
        if ($date=~/\s(\d{2})/){
            $hour=$1;
        }
        ...
        if ($hour > $cutover){

##</code><code>##

            $date=DateCalc("$date","+24 hours"); ###Takes 2min out of 2:30min.

##</code><code>##

            $date=&UnixDate($date,"%Y-%m-%d");

##</code><code>##

        if (defined ${$report{$host}{$pol}{$sched}{$date}}){
            ${$report{$host}{$pol}{$sched}{$date}}=${$report{$host}{$pol}{$sched}{$date}}+$error;
        }else{
            ${$report{$host}{$pol}{$sched}{$date}}=$error;
        }

##</code><code>##

my $rep_date = $report{$host}{$pol}{$sched}{$date};

if ( defined ${ $rep_date } )
{
  ${ $rep_date } .= $error;
}
else
{
  ${ $rep_date } = $error;
}
#
#  ... or ...
#${ $rep_date } =
#  defined ${ $rep_date } ? ${ $rep_date } . $error
#  : $error
#  ;