for (my $t=0; $t<@Namensliste;$t++)
{
 my $Name=$Namensliste[$t];