Perlito5 - perl6 - cleanup an extra block level