my @letters = qw(alfa beta gama);

for my $letter (@letters){
   warn "iteration is ", scalar($0 .. !$0);
}

for my $letter (@letters){
   warn "iteration is ", scalar($0 .. !$0);
}