perl -le'@a=(1,3,5,6);$"="+";print eval"@a"'
perl -le'@a=(1,3,5,6);$,="+";print@a'|bc