Create perl(fact)