Magic squares/Perl 6