my @letters = ("a" .. "z");
...
            $wort .= $letters[rand 27];