my $grossAmt = param("amt");
if($grossAmt =~ /\,/) {
$grossAmt =~ s/\,//g;
$grossAmt = sprintf('%.2f', $grossAmt);
}