use strict;
use warnings;

my $grossAmt = "12,345,678.9";

$grossAmt =~ tr/,//d;
$grossAmt = sprintf('%.2f', $grossAmt);

print $grossAmt, $/;

__END__
output:
12345678.90