Select Code to Download

use strict;
use warnings;
...
    $row++;
    $worksheet->Cells($row, int($key + .5))->{Value} = $hash{$key};
}