Select Code to Download

 1. For every elements in array

...
 7. Finally we have an AoA with $AoA[1] ..$AoA[4] filled up 
    (see answers snippet below)

#!/usr/bin/perl -w
use strict;
...

        return @AoA ;
}

# For @answ_hoa1, note that 2nd elem of 4th array is "-" and not "D"
# because elem[last] in 2nd array ("B") has been *used* before
...
                 ["D","-","-"],
               );