$workbook1 = Excel::Writer::XLSX->new($strExcelFilename);
        #$worksheet1 = $workbook1->addworksheet("DEVICE-BROWSER-LIST");
		$worksheet1 = $workbook1->add_worksheet('Data');
		$worksheet2 = $workbook1->add_worksheet('Summary');
		$row1= 1;
		
		
			foreach $worksheet1 ($workbook1->sheets()) {
		 if( $worksheet1->get_name() eq $SUCCESS_COUNT_SHEET_NAME ) {
			  $format = $workbook1->add_format(%header);
           $worksheet1->write(0,0, "User Id", $format);
		   $worksheet1->write(0,1, "User Display Name", $format);
		   $worksheet1->write(0,2, "User Email Id", $format);
		   $worksheet1->write(0,3, "Device", $format);
           $worksheet1->write(0,4, "Browser", $format);
           $worksheet1->write(0,5,"Application Name", $format);
           $worksheet1->write(0,6,"TimeStamp", $format);
		   #$worksheet1->write(0,7, "EMAIL--ITUSER-STATUS", $format);
	  
	  for ($k = 0; $k <= $#responseid; $k++)  {
	  
	  		 
        $worksheet1->write($row1,0, $responseid[$k]);
		$worksheet1->write($row1,1, $responsdisp[$k]);
		$worksheet1->write($row1,2, $responsalter[$k]);
		$worksheet1->write($row1,3, $responseclientdevice[$k]);
		$worksheet1->write($row1,4, $responseclientbrowser[$k]);
		$worksheet1->write($row1,5, $responseapps5[$k]);
		$worksheet1->write($row1,6, $estdate[$k]);

    
	$row1++;
	
	}
	}
	
	 $chart1 = $workbook1->add_chart( type => 'column', embedded => 1  );
			$chart1->add_series(
  	categories => '='. "Data" . '!$E$2:$E$1200',
	    name   => '='."Data".'!$F$1',	
	  values => '='."Data".'!$F$2:$F$1200',
    );
	
			$chart1->add_series(
 	categories => '='. "Data" . '!$D$2:$E$1200',
      values => '='."Data".'!$D$2:$D$1200',
    );
		  	$chart1->set_title ( name => 'Results of sample analysis' );
			$chart1->set_x_axis( name => 'Computer'  );
 		$chart1->set_y_axis( name => 'Browser' );
				$chart1->set_style( 11 );
		   $worksheet2->insert_chart( 'E2', $chart1,  25,  10 );

	

	}
	
	   


 
	

	$workbook1->close();