sub some_subroutine {
  if ($_[0] eq 'arg1') {
    $coderef = \&some_other_subroutine;
  }

  return ($value1, $value2);
}