Project Euler problem sets in perl