$ cat report.pl #!/usr/bin/perl use strict; use warnings; my($location, @customers) = @ARGV; die "Can't create report, no customer defined\n" unless @customers; print "The following customers are located at $location\n"; my $i; for (@customers) { print ++$i, ". $_\n"; } $ ./report.pl Can't create report, no customer defined $ ./report.pl NY Penelope Abraham Marie 'John Doe' The following customers are located at NY 1. Penelope 2. Abraham 3. Marie 4. John Doe