Perlito5 - perl5 - use less code