>>788
while は $_ を破壊してしまうから foreach を使うべし。