my @arrOfJoiners = ('!','*','?');
my @arrToJoin = (1,2,3,4);

##</code><code>##

my @arrOfJoiners = ('!','*','?');
my @arrToJoin = (1,2,3,4);
my $s;
for my $arrElem (@arrToJoin) {
	$s .= $arrElem . (shift @arrOfJoiners);
}
print $s;

##</code><code>##

$s = join "", (map {$_ . (shift @arrOfJoiners)} @arrToJoin);