perl 二维数组元素个数