my $ss = Spreadsheet::WriteExcel::Simple->new;
   $ss->write_bold_row(\@headings);
   $ss->write_row(\@data);

print $ss->data;
      # or
      $ss->save("filename.xls");