my $totalpmt = sprintf("%.2f", $totalpmt);