my $source_cell = $source_sheet->{Cells}[$row_index][$col_index];
   if ($source_cell)
   {


    # here you add data from xls into xml (not just copy/past the line like i did but you have to know the structure of your data thah you wish to pass into xml)


    #$writer->startTag("PosMntReq", "ReqID" => "18AEXR" ,"TxnTyp" => "1","BizDt"=>"2003-12-04","SetSesID" => "EOD", "TxnTm" => "2003-09-10T00:00:00");
    #$storage_book->{$source_sheet->{Name}}->{$row_index}->{$col_index} = $source_cell->Value;
   } # end of source_cell check

##</code><code>##

$writer->endTag("PosMntReq");
$writer->endTag("FIXML");
$writer->end();
$output->close();