chomp(my $auswahl = <STDIN>);
my @name = qw(Muster);

if($auswahl == 1){
    print "Bitte Vorname eingeben: ";
    unshift(@name, my $vorname = <STDIN>);
} elsif($auswahl == 2){
        print "Bitte Nachname eingeben: ";
        push(@name, my $nachname = <STDIN>);
  } else{
        say "Bitte nur 1 oder 2 eingeben";
    }
    
for(my $i = 0; $i <= $#name; $i++){
    print $name[$i];
}