Perlito5 - perl6 - sub refactoring - check args fix