And here's the obligatory Perl 6 version of it. As you can see, it's much clearer and cleaner.