use strict; use warnings; my @pronouns = qw/He She I Me/; my @verbs = qw /jumped ate laughed cheated/; print $pronouns[rand @pronouns] . ' ' . $verbs[rand @verbs] . $/;