use v5.12;

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

say join "", map(($arrToJoin[$_], $arrOfJoiners[$_]), 0..$#arrToJoin);