PCA in Perl6