>>824
1) プロトタイプの@は残りの引数をすべてリストとして取り込むという意味。
　　(@) にはあまり意味がないんだけど、perlsubでも読んどき。

2) map の引数のBLOCKはリストコンテキストで評価されるから、
　　$_, 1 は $_ と 1 からなるリスト。