Select Code to Download

# This is the code that works
$mydata = [["Item",     "Category", "Price"], 
...
# Write all the data at once...
$rng = $xlBook->ActiveSheet->Range("A1:C7");
$rng->{Value} = @mydata;

use Win32::OLE;

...
$rng->{Value} = $mydata;

print "All done.";