Mastering Algorithms with Perl by