my ($row, $col) = ("A", 1);
for (@file) {
  $Sheet->Range($row.$col)->{'Value'} = $_;
  $col++
}