sub do_calc {
  my $v1 = ##... something
  my $v2 = ##... other thing
  my $v3 = ##... a third thing
  return $v1, $v2, $v3
}