my @present_endings = qw(e es ons ez ent);
my @present = map { $stem . $_ } @present_endings;
...etc for the other tenses...