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