# or
print "@{[@+]}\n";
# or 
print join($"||"",@+),"\n";