Select Code to Download

    foreach my $person (@people) {
        my @personData;
...
        $worksheet->write_row($excelRow, 0, \@personData) or die "Writ
+e failed: $!\n";
        $excelRow++;
    }

#!/usr/bin/perl
use warnings;
...
    
    return join "", @convertedChars;
}