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

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

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