$ perl -MData::Dump -e " @f=a..c;  while(@g=each @f){ dd\@g } "
[0, "a"]
[1, "b"]
[2, "c"]