>perl -wMstrict -le
"my @ra = qw(a b c d);
 ;;
 while (my ($i, $element) = each @ra) {
   print qq{ra $i is '$element'};
   }
"
ra 0 is 'a'
ra 1 is 'b'
ra 2 is 'c'
ra 3 is 'd'