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

$filename="".$currSite.".xls";
$workbook = Spreadsheet::WriteExcel->new($filename);
$worksheet = $workbook->add_worksheet();

while(<$file>){
	$worksheet->write($row,0,$year);
	$worksheet->write($row,1,$count);
	$row++;
}
$workbook->close();