sub do_stuff {
    my(
      $x,   # X axis coordinate.
      $y,   # Y axis coordinate.
      $z,   # Z axis coordinate.
    ) = @_;
    ...
}