use warnings;
use strict;
use List::MoreUtils qw(mesh);

my @arrOfJoiners = ('!','*','?');
my @arrToJoin = (1,2,3,4);
my @arr2 = mesh(@arrToJoin, @arrOfJoiners);
pop @arr2;
print join('', @arr2), "\n";

__END__

1!2*3?4