my $i = 1;
for my $key (sort keys %hash) {
   $worksheet->write_col(1,$i++,$hash{$key});
}