format STDOUT =

@<<<<<<<<<<<<<<<<<<<<
$cust
@#####.##   @#####.##   @#####.##      @#####.##   @#####.##   @#####.##
$d1, $c1, $t1, $d2, $c2,$t2
                                                @#####.##
                                                $total
.

##</code><code>##

foreach $key (sort keys %ytd ){
               my ($cust, $d1, $d2, $c1, $c2);
               my $t1 = $ytd{$key}->{d1}-$ytd{$key}->{c1};
               my $t2 = $ytd{$key}->{d2}-$ytd{$key}->{c2};
               $total = $t2-$t1;
               $cust = $key;
               $d1= $ytd{$key}->{d1};
               $d2= $ytd{$key}->{d2};
               $c1= $ytd{$key}->{c1};
               $c2= $ytd{$key}->{c2};
               write;
               }