&begruessen("Fred");
&begruessen("Barney");
&begruessen("BamBam");
&begruessen("Dino");

sub begruessen{
	state @buffer_names;
        # Hier steht eigentlich noch mehr, hat aber mit meinem Problem nichts zu tun
        else{
		foreach my $val(@buffer_names){
			print "$val ";
		}
	}
}