短くキレイに。

http://sonic64.com/2006-06-25.html

perl -e '$s += ($_ ** 2) foreach (1..10); print $s;'

かな。あるいは、

perl -e '$s += ($_ ** $_) foreach (1..10); print $s;'

こう。

最近、生業にしている人のPerl(のコード)を見ることが多いけど、なんか冗長。。。
Perlってキレイな言語だと思うのに。

実際、自分で使わないから、そう思ってるだけなのかもね。