Help for this page

Select Code to Download

Select or download this

while (my ($i, $v) = each \@a) {
    say "$i: $v";
}