my $newday = 24 - $hour; $newday = ($newday + 2) % 24;