perl report.pl -CustomerName "Penelope NY" > test.txt 

##</code><code>##

perl report.pl --CustomerName "Penelope NY" > test.txt 

##</code><code>##

use strict;
use Getopt::Long;
use Pod::Usage;

GetOptions(
    'CustomerName' => \my @customers,
    ...
);

for my $customer (@customer) {
    print "Hello $customer!\n";
};