23:50 >perl -wE "my ($var1, $var2) = ('Hi', 'Hello'); $_ .= ' world' for $var1, $var2; say qq[$var1, $var2];"
Hi world, Hello world

23:53 >

##</code><code>##

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";

##</code><code>##

 0:06 >perl 923_SoPW.pl
Hi there!, Hello world!, Greetings earthlings!

 0:06 >