Perlito5 - perl6 - apply subroutine refactoring