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