Projecteuler is a project mainly written in Perl, it's free.
practice of programming
http://projecteuler.net/