perl 数组访问问题
脚本如下，目的是获取ls命令后的文件名，但是while打印的全部是第一个文件名，有人知道为啥吗

#!/usr/bin/perl

my @test = `ls`;
my $sum = @test;
print STDOUT "The size is $sum \n";

foreach(@test)
{
  print STDOUT "$_ \n";
}


my $i = 0;
while($i < $sum)
{
  print STDOUT "$test[i]";
  $i++;

}

------解决方案--------------------

探讨

额 发现问题了 $test[$i]...

------解决方案--------------------
恭喜

Q: 在CSDN上发帖提问后怎样结帖给分？

A: 打开你的帖子→点击帖子左上角的“结贴”按钮→在回帖用户的得分框里面输入分数→点击帖子左下角的“结贴给分”

结贴完成后，系统将返回给你该帖50%的可用分。注意：无满意结帖不会返分！