Perl6 examples