use Perl6::Form;
print form   {layout=>"across"},
'{:[{10}]:} {:[{10}]:} {:[{10}]:} {:[{10}]:} {:[{10}]:} {:[{10}]:} ',
\@UACS ,    \@UACS , \@UACS ,   \@UACS ,  \@UACS , \@UACS  ;

##</code><code>##

    use Perl6::Form;
    print form   {layout=>"across"},
        '{:[{10}]:} ' x 6 ,
        ( \@UACS ) x 6;