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

  #...

  if(($arg2 - $arg1) == 0) {
    return ($arg2);
  }
  # erneute Rekursion
  else {
    rekursion($arg1, $arg2);
  }
}