mall_tally_bottom

Code for Tallying the Bottom Line

The code for tallying the bottom line (totals across departments) was similar, but not identical, to the code for tallying individual groups.

  foreach my $period (@overall) {
      my %week = %{$period};
      my ($sch, $occ, $percent);
      $sch =     defined ($week{'sched'}) ? $week{'sched'}    : 0;
      $occ =     defined ($week{'occur'}) ? $week{'occur'}    : 0;
      $percent = $sch                     ? $occ / $sch * 100 : 0;

Note the data structure: an array (@overall) of hashes (%{$period}) -- one level shallower than the preceding. But we still use the ternary operator three times.