use strict;

my (@stuff,$cust,$total);
my %ytd = (
   foo => { d1 => 1, d2 => 2, c1 => 3, c2 => 4 },
   bar => { d1 => 5, d2 => 6, c1 => 7, c2 => 8 },
   baz => { d1 => 9, d2 => 1, c1 => 2, c2 => 3 },
   qux => { d1 => 4, d2 => 5, c1 => 2, c2 => 4 },
);

foreach $cust (sort keys %ytd) {
   my @tot = map {
      $ytd{$cust}->{"d$_"} - $ytd{$cust}->{"c$_"}
   } 1..2;

   $total = do { my $t; $t += $_ for @tot; $t };
   @stuff = (
      $ytd{$cust}->{d1}, $ytd{$cust}->{c1}, $tot[0],
      $ytd{$cust}->{d2}, $ytd{$cust}->{c2}, $tot[1],
   );
   write;
}


format STDOUT =

@<<<<<<<<<<<<<<<<<<<<
$cust
@#####.##  @#####.##  @#####.##     @#####.##  @#####.##  @#####.##
@stuff
                                            @#####.##
                                            $total
.