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