use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new("Example.xls");
my $worksheet = $workbook->add_worksheet();

$worksheet->write_string(0, 4, '$77,777');
$workbook->close();