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