# do things with @stuff
        $FormatTransDate = substr($TransDate, 0, 10);
             $FormatTransPmtAmt = sprintf("\$%.2f", $TransPmtAmt);

             print $FormatTransDate;
             print "    ";
             print $FormatTransPmtAmt;
    }