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