This will save you some fractions of a microsecond :)

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

instead of

print join(...);
[download]