咨询用perl怎么对表达谱中的样本表达值进行1000次随机，基因名一列不变

xiaoyuer12010

谢谢{:soso_e100:}