NOW THAT'S CODE

sub fucti {
  my @time = @_;
  --$time[2] and $time[3] += 60 if $time[3] < 0;
  ++$time[2] and $time[3] -= 60 if $time[3] > 60;
  --$time[1] and $time[2] += 60 if $time[2] < 0;
  ++$time[1] and $time[2] -= 60 if $time[2] > 60;
  --$time[0] and $time[1] += 24 if $time[1] < 0;
  ++$time[0] and $time[1] -= 24 if $time[1] > 24;
                 $time[0] +=  7 if $time[0] < 0;
  return @time;
} # fuck time... ... ... DEAN'S WAY!