foreach my $person (@people) { my @personData; push @personData, $person->{"name"}; push @personData, $person->{"email"}; push @personData, $person->{"phone"}; $worksheet->write_row($excelRow, 0, \@personData) or die "Write failed: $!\n"; $excelRow++; }