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