Try this

use Win32::OLE;

my ($ex, $book, $sheet, $pwdr);
#
# your code...
#
    # use existing instance if Excel is already running
    eval {$ex = Win32::OLE->GetActiveObject('Excel.Application')};
    die "Excel not installed" if $@;    
    unless (defined $ex) {
    $ex = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;})
    or die "Oops, cannot start Excel";}

        # get a new workbook
        $book = $ex->Workbooks->Add;
    # write to a particular cell
    $sheet = $book->Worksheets(1);    
    
    for $hash_count ( sort {$a<=>$b} keys %hash){
          push @spread_array,"$hash{$hash_count}";
    }
    
    foreach (@text)
    {
        $sheet->Cells($ctr2,$ctr3)->{Value} = $_;
        $ctr3++;
    }

    $book->SaveAs("<some file name>");
    undef $book;
    undef $ex;
[download]

You can increment the rows and columns cubsequently in a loop.
Hope it helps!


we're born with our eyes closed and our mouths wide open, and we spend our entire life trying to rectify that mistake of nature. - anonymous.

Comment on Re: emptying a hash into a spreadsheet Download Code