perl命令行参数默认存储在perl自定义变量@ARGV中。
#判断参数个数是否为0，根据上下文环境这里就是==符号，这里@ARGV指的是命令行参数数组元素个数
if(@ARGV == 0)
# 这里@ARGV指的是命令行参数数组，对数据元素遍历，打印出每个元素，这里的$_为foreach的默认自增变量
foreach(@ARGV){
 print "$_\n";
}
# $#ARGV表示@ARGV数组的最后一个元素的下标，该语句同样打印出数组中的每个元素，$ARGV[0]表示@ARGV数组的第0个元素
foreach(0 .. $#ARGV){
  print "$ARGV[$_]\n";
}