With the arrays, yes, it will make it much easier. Assuming you have your worksheet open (exercise left to the OP =):

my $row = 0;

while (<DATA>) { # data loop is here
  # unpack, etc.
  $worksheet->write_row($row++, 0, \@fields);
}
[download]