Perl for数组元素个数