小编raw*_*989的帖子

这个程序应该执行三次,但只执行两次.任何人都可以解释这个foreach循环如何在perl中工作.

#!/usr/bin/perl
use strict;
use warnings;
my @arr=("sandeepr", "vijay","vikas");
for my $i( @arr)
{
    print @arr;
    my $b=pop(@arr);
    print "\n $b";
}