Perl 版は >>381 より >>370 のほうが速い
配列の参照回数が減るから