perl中快速初始化数组

perl中是否有matlab中类似于zeros那样的可快速初始化数组的语句？答案是有的，可以这么写：

@a=(0) x 50;

即可生成一个1x50的数据为0的数组。