perl计算数组个数，标量长度

数组个数
my $arr_num = scalar @arr1;

标量长度
my $word = "hello world";
my $strlen = length $word;