each也能作用于数组

一直以为each只能作用于hash，其实也能用于数组，分别取下标及其对应的值。

my @array = (0, 1, 2, 3, 4, 5, 6);
while (my ($i, $v) = each @array) {
    print "$i: $v", "\n";
}

==