如何在Perl或Python中仅打印每三分之一的索引？

Question

如何在Python和Perl中分别执行for（）或foreach（）循环，该循环只打印第三个索引？我需要将每三分之一的索引移到一个新数组中。