@woerter = qw / Perl Kamel Larry foo /;
$zufall = int(rand(3)) + 1;
$wort = $woerter[$zufall] ;
@Split = split ("",$wort);
foreach (@Split) {
	print " $_ ";
}