Select Code to Download

 $worksheet->write_number( $row, $col, sprintf ('%d',$data{'Peak_MO'})
+, $number);


$worksheet->write( $row, $col, sprintf ('%d',$data{'Peak_MO'}), $numbe
+r);

my $number = $workbook->add_format(
...
                                        valign   => 'vcenter',
                                        italic   => '1',
                                  );