#! /usr/bin/perl
use strict;
use warnings;
use 5.010;

print "Bitte waehlen Sie zwischen 1 oder 2: ";
chomp(my $auswahl = <STDIN>);

my @name = qw(Muster);

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

# jedes Element ausgeben; say = print mit Umbruch am Ende
for(my $i = 0; $i <= $#name; $i++){
    say $name[$i];
}

__END__