use strict;
use warnings;
use Win32::Process;
use REST::Client;
use JSON::Parse ':all';
use MIME::Base64;
use Term::ReadKey;
use Data::Dumper;
use MIME::Lite;
use Net::SMTP;
use Spreadsheet::XLSX;
use Spreadsheet::ParseXLSX;

		for my $i (0..$#responsetextall) {
                   
           for my $j (0..$#{$responsetextall[$i]}) {
	   		   
       	   $responseapplinks = $responsetextall[$i][$j]{visio{appLinks}};
		   
		   $worksheet->write(0, 1, 'Visio-appLinks' , $my_format);
		   $worksheet->write($r, 15, $responsetextall[$i][$j]{visio}{appLinks});
		   }
		   
		   }