Perl to-do list