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