my $vorname = <STDIN>;
unshift(@name, $vorname);