I have never played with Perl 6, but (Golf): Sieve of Eratosthenes has lots of ideas for how to express Euclid's algorithm concisely in Perl 5. Likely some of those ideas will translate.