Perl practice