Fibonacci program in perl