Project Euler Solutions in Perl