もっと防御てきにしたほうがいいはず。 ~/perl $ perl -MData::Dumper -MTupleIterator -e ' $a=+[qw/a b c d e f g h/]; $b=TupleIterator::get_tuple_iterator($a,3); while($b->("more")){print Dumper($b->("next"))}; print Dumper($b->("remain")) ' $…