Select Code to Download

$worksheet = $workbook->Worksheets("Worksheet");
foreach my $key (sort keys %hash){
    print "Key: $key\nValue: $hash{$key}\n";
    $worksheet->Cells($current_row, $key)->{Value} = $hash{$key};
}

$worksheet = $workbook->Worksheets("Worksheet");
foreach my $key (sort keys %hash){
...
    $column = $key + 0;
    $worksheet->Cells($current_row, $column)->{Value} = $hash{$key};
}