perl pari