Gamma function in perl5