use warnings;
use strict;

my @verbs =
("jumped","eat","killed");

my @pronoun =
("I","You","He","She");
while (1) {
	print $pronoun[rand @pronoun] . " " . $verbs[rand @verbs], "\n";
	sleep(1);
}