Select Code to Download

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

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

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