Duplicate of the foreach structure with for structure
for $letter ( 'A' .. 'G' ) { print "$letter"; } print "\n"; foreach $letter ( 'A' .. 'G' ) { print "$letter"; }