Each Over Arrays 

my @staff = qw(John Paul George Phyllis);

while(my($i, $name) = each @staff) {
    say "$i, $name";
}

# 0, John
# 1, Paul
# 2, George
# 3, Phyllis