%verbs =
{"jumped","eat","killed"};

%pronouns =
{"I","You","He","She"};

my @pronouns = shuffle keys %pronouns;

foreach my $verb (shuffle keys %verbs)
{
  print shift(@pronouns), ' ', $verb, "\n";
  @pronouns = shuffle keys %pronouns if (scalar(@pronouns) == 0);
}