Funny :-)

As a comment, you don't need the int (being in an index will automatically chop the fractional part), and you can replace the hardcoded lengths so that you can add new elements to the arrays. So the last line becomes:

print "$SUBJ[rand @SUBJ] $VERB[rand @VERB] $END[rand @END]\n";
[download]

--ZZamboni