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

##</code><code>##

$worksheet->write_col('A1',\@2D_array);

##</code><code>##

$worksheet->write_row('A1',[values %hash]);