#!/usr/bin/perl
use strict 'vars';
my @people = @ARGV;
print "Staring...\n";
foreach my $person ( @people ){
   print "Hello $person\n";
 }
print "done!\n";