use strict;
use warnings;

my @words = <DATA>;
chomp @words;

my $number_of_sentences = 3 + int( 10*rand() );

for (1..$number_of_sentences) {  
    my $sentence_length = 2 + int( 9*rand() );
    my @sentence = map {$words[int(rand($#words+1))]} 1..$sentence_length;
    $sentence[0] = ucfirst $sentence[0];
    print join(" ", @sentence), ".\n\n";
}

__DATA__
abnormal
blah
crazy
dolt
dolthead
doltish
doltishly
doltishness
eccentric
fallacious
galling
hapless
illogical
jabber
kooky
lame
misguided
nuisance
officious
pretense
questionable
resentful
shaky
tenuous
untenable
vague
warp
yawn
zombie

##</code><code>##

Doltishly yawn yawn.

Shaky warp yawn tenuous misguided illogical doltish.

Warp blah officious kooky dolthead untenable eccentric untenable officious.

Galling officious.

Abnormal doltish hapless tenuous.

Galling crazy.

Abnormal galling doltish.

Kooky crazy doltishly doltishness.

Eccentric blah fallacious galling.

Pretense untenable questionable abnormal kooky zombie dolt jabber.