Select Code to Download

$output = [
               [ [0],[0],[0] ],
...
  my $Sheet = $Book->Worksheets("$i");
  $Sheet->Range("A1:C3")->{'Value'} = $$output[$i];
}

open (FILEIN,"$filein") or die "Open $filein failed: $!";
while (<FILEIN>) {
...

$Sheet->Range("$begcol$begrow:$endcol$endrow")->{'Value'} = $output;

push @$output, [@data];

push $$day_output[$data[1]], [@data];