Select Code to Download

format STDOUT =

...
                                                @#####.##
                                                $total
.

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