Project euler problem 2 in perl