How do I shorten an array in Perl 6? How do I shorten an array in Perl 6? arrays arrays