Trying to do the 100 projects in Perl