for $letter ( 'A' .. 'G' ) { print "$letter";}print "\n";foreach $letter ( 'A' .. 'G' ) { print "$letter";}