fix strange perl6 code in alias example