foreach my $x ( @finaldata ) {
        my ($sdrposttax, $reccurposttax);
        $sdrposttax = &FmtCur3($x->{'sdrposttax'});
        $reccurposttax = &FmtCur3($x->{'reccurpotx'});

        print FH "$x->{'period'},$x->{'partner'},$x->{'ftsqrg'},$x->{'ltsqrg'},";
        print FH "\"$sdrposttax\",";
        print FH "$x->{'reccur'},$x->{'recsdrrate'},";
        print FH "\"$reccurposttax\",";


        # Compute the cumulative sum to display in the footer
        $sum += $x->{'sdrposttax'};
    }