##
use strict;
use warnings;
my @vars = qw[Hi Hello Greetings ];
my @suffixes = qw[there world earthlings];
@vars = map { $_ . ' ' . shift(@suffixes) . '!' } @vars;
print join(', ', @vars), "\n";
##
##
0:06 >perl 923_SoPW.pl
Hi there!, Hello world!, Greetings earthlings!
0:06 >