Perl比较基因长度，计算平均值

Perl

比较几个基因名称的长度，print最长，最短，和平均长度