Perl Advent Calendar TopTen