Shorten and obfuscate IDs in Perl 6.