my @names = qw(anton berta cäsar dora);
foreach my $name(@names){
        $name = 'unknown';
}
print "@names"; # surprise ;)