my @term = (4, 5);

my @ops = (
   [ '+'  =>  sub { $_[0] + $_[1] } ],
   [ '-'  =>  sub { $_[0] - $_[1] } ],
   [ '*'  =>  sub { $_[0] * $_[1] } ],
   [ '/'  =>  sub { $_[0] / $_[1] } ],
);

for my $op (@ops)
{
   my ($symbol, $coderef) = @$op;
   
   printf(
      "%s %s %s = %s\n",
      $term[0],
      $symbol,
      $term[1],
      $coderef->(@term),
   );
}