sub rekursion {
  my($arg1, $arg2) = @_;

  #...

  return ($arg2) if(($arg2 - $arg1) == 0);

  # erneute Rekursion
  return rekursion($arg1, $arg2);
}