Select Code to Download

 
 #!/usr/bin/perl -w
...
   $sow++;
}

 my $row = 1;
foreach my $data (@data) {
...

    $worksheet->write($row, 0, @$data[0]);
    $worksheet->write($row, 1, @$data[1]);

# Write the main headings for the worksheet AP
$worksheet->freeze_panes(1); # Freeze the first row
...
$worksheet->write('I1', 'Sleepy',     $heading);
$worksheet->write('J1', 'Sneezy',     $heading);
.......