for my $Name ($Namensliste[$s])