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

##</code><code>##

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

##</code><code>##


  my $stem = $verb;
  $stem =~ s/er$//;

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

##</code><code>##

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