A Little Perl 6, A Few Patterns