Select Code to Download

my @TwoD = ( ['A','B','C'], ['A','D','C'], ['A','B','C'] );
my ( $slotH, %slotH ) = (-1,());
...
    }
    print "\n";
}

A       B       C
A               C       D
A       B       C