Perl practices