sub begruessen{
     state $person_number = 0;
     state @names;
     state @buffer_names;
	
    foreach my $val(@_){
       push(@names, $val);
       push(@buffer_names, $val);
    }
    if($person_number== 0){	
       print "Hallo $names[$person_number]! Du bist der erste hier!";
    }else{
       pop(@buffer_names);
       print "Hallo $names[$person_number]! Die folgenden Personen waren vor  dir hier: ";
       foreach my $val(@buffer_names){
         print "$val ";
     }
   }
   print "\n";
   $person_number++;
}