use Spreadsheet::WriteExcel;
my $julian = 'Header';
my $ttime  = '1208011500';
my $workbook = Spreadsheet::WriteExcel->new("$julian.xls");
	$worksheet   = $workbook->addworksheet("Missing Stores $julian");
	$format      = $workbook->addformat();
	$worksheet->set_column(0, 0, 12); 
	$format->set_align('center');
	$format->set_bold(1);
	$worksheet->write(0, 0, "Julian/Time", $format);
	$worksheet->write(0, 1, "Store", $format);
	$format->set_bold(0);
	$worksheet->write(1, 0, "$julian/$ttime", $format);
	my $i = 1;
	my $n = 0;

	until ( $n == $missxn ){
		$worksheet->write($i, 1, "@No_file_ssc[$n]", $format);
		$i++;
		$n++;
	}