foreach my $value (('a', 'b', 'c')) {
  $value .= '1';
  print "$value\n";
}

##</code><code>##

$vowel = qw( a e i o u )[ rand 5 ];

for qw( a e i o u ) {
  # ...
}