Select Code to Download

 my ($present_1,$present_2,$present_3,$present_4,$present_5) = $verb;

 my ($present_1, ...) = ($verb) x 5;

  my $stem = $verb;
...
  my $present_1 = $stem . "e";
  my $present_2 = $stem . "es";
  ...

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