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