a couple simple perl6 examples