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