Does this suit your requirement?

perl -le 'my @array=([a,b,c,d],[1,2,3,4]);print join "|",map {@$_} @ar
+ray'
a|b|c|d|1|2|3|4
[download]