use warnings;
    use strict;
    use Spreadsheet::WriteExcel;


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

    my $id_format = $workbook->add_format( num_format => '@' );
    my $id        = '1000000000002651';

    $worksheet->set_column( 'A:B', 30 );

    $worksheet->write_string( 'A1', $id );
    $worksheet->write_string( 'B1', $id, $id_format );

    __END__