my(@sentenceformats) = (
 'a v n', 'a v n v n'
);

#pick a sentence format -- there's probably a much
#easier way to do this!
my($sent) = int(rand($#sentenceformats))); 

my(@format) = split(/ /, $sentenceformat[$sent]);
for (@format) {
  if (/a/) { #pick a article
  } elsif (/v/) { #pick a verb
  } elsif (/n/) { #pick a noun
  } else { warn "Unknown sentence fragment\n"; };
};
[download]