## Note: INDEX STARTS AT 0, I show day number here for convenience:
##     Day:      1,  2,  3,  4,   5, ...
my @start    = ( 7,  6,  7,  0,   9, ... );
my @stop     = (15, 16, 18,  0,  12, ... );
my @personal = ( 1,  1,  0,  0, 1.5, ... );

my (@daily, @busi, $daily_total, $busi_total, $pers_total);

# array indices start at zero:
for my $i (0..30) {
    next unless $stop[$i] > 0;

    $daily[$i] = $stop[$i] - $start[$i];
    $busi[$i]  = $daily[$i] - $personal[$i];
    $daily_total += $daily[$i];
    $busi_total  += $busi[$i];
    $pers_total  += $personal[$i];
}