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