use Spreadsheet::ParseXLSX;
use Excel::Writer::XLSX;

	my $in_file = "Input.xlsx";
	my $out_file = "Output.xlsx";
	# Read in all rows from existing file
	my $rows = read_excel($in_file);
	my $count = 0;

	# Write the updated rows to new file
	my $col_num = 2;
	write_excel($out_file, $rows, $col_num);
	++$count;
	
	sub read_excel {
	   my ( $file, $sheet ) = @_;
		$sheet ||= 0;
		
		my $parser = Spreadsheet::ParseXLSX->new();
		my $workbook = $parser->parse($file);
		if ( not defined $workbook ) {
			die $parser->error;
		}
		my $worksheet = $workbook->worksheet($sheet);
		my ( $row_min, $row_max ) = $worksheet->row_range();
		my ( $col_min, $col_max ) = $worksheet->col_range();
 
		my @rows;
		for my $row ( $row_min .. $row_max ) {
			my @cells;
			for my $col ( $col_min .. $col_max ) {
				my $cell = $worksheet->get_cell( $row, $col );
				if (not $cell) {
					push(@cells,'');
					next;
				}
				my $value = $cell->value();
				push(@cells,$value);
			}
			push(@rows,\@cells);
		}
		return \@rows;
	}
	sub write_excel {
		my ( $file, $rows, $col_max ) = @_;
		my $workbook = Excel::Writer::XLSX->new( $file );
		if ( not defined $workbook ) {
			die "Could not open file: $!";
		}

		my $worksheet = $workbook->add_worksheet();
		my $row_num = 0;

		for my $row ( @$rows ) {
			for my $col (0 .. $col_max) {
				$worksheet->write( $row_num, $col, $row->[$col] );	
					
			} 	
			$row_num++;
		}
		$workbook->close();
		return;
	}