#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Spreadsheet::ParseExcel;
use Spreadsheet::WriteExcel;

my $parser = Spreadsheet::ParseExcel->new();
my $ReadWorkbook = $parser->parse('Read.xls');

my $WriteWorkbook = Spreadsheet::WriteExcel->new('Write.xls');
my $WriteWorksheet = $WriteWorkbook->add_worksheet('Data');

my $formula = $WriteWorksheet->store_formula('=1-(F1/E1)');

for my $ReadWorksheet ($ReadWorkbook->Worksheet('Data')){
	my ($row_min, $row_max) = $ReadWorksheet->row_range();
	my ($col_min, $col_max) = $ReadWorksheet->col_range();
       my $cell = $ReadWorksheet->get_cell($row, $col);
       next unless $cell;
       $WriteWorksheet->write($row, $col, $cell->value());

       my $f_change = $WriteWorkbook->add_format();
       $f_change->set_num_format('0.00%');

       my $limit = 5;
       for my $row($row_min..$limit){
				$WriteWorksheet->repeat_formula($row, 13, $formula1, $f_change, 'F1','F'.($row+1), 'E1', 'E'.($row+1));
                       }				    		
		   }
	}
}