foreach my $x  ('aa' .. 'bb') {
  print qq{$x\n}
}

##</code><code>##

aa
ab
ac
ad
ae
af
ag
ah
ai
aj
ak
al
am
an
ao
ap
aq
ar
as
at
au
av
aw
ax
ay
az
ba
bb