project Euler Problems done in Perl