$, = "|"; 
print @{[1,2,3]};

instead of

print join(...);