for $hash_count ( sort {$a<=>$b} keys %hash){
	  push @spread_array,"$hash{$hash_count}";
}
$worksheet->write_col(1,1,\@spread_array);