perl6 problem