sub exp($$) {
  # perform exponention.
}

my @values = (
  [ 3, 3 ], # cube of 3
  [ 81, 0.5 ], # square root of 81
  # ...
);

for my $params (@values)
{
  printf "exp(%s,%s) = %s", @$params, exp(@$params);
}