Select Code to Download

TieVariable(\my @array); ### Pos1
print "### Initialization finished\n";
...
   tie @$array, 'Tie::Excel::Array';
   $array->[$_] = 5 * $_ for 0..5;
}