Perl practice programs