use Spreadsheet::WriteExcel;
use strict;
    # Create a new Excel workbook
    my $workbook = Spreadsheet::WriteExcel->new('perl.xls');

    # Add a worksheet
    my $worksheet = $workbook->add_worksheet();

    # Write a number and a formula using A1 notation
    $worksheet->write_number('A1', 1000000000002651);