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