#! /usr/bin/env perl6
    use v6;

    my @data = < AABBC BAABC AABBD AACBB >;

    # Use mixhashes (self-totalling, and they default to zero)
    my @freq = MixHash.new xx max @data».chars;

    # Count everything
    for @data».comb -> @chars {
        for @chars.kv -> $pos, $char {
            @freq[$pos]{$char}++;
        }
    }

    # Column labels
    my @labels = @data.join.comb.unique.sort;
    say join "\t", '', @labels;

    # Table rows
    for @freq.kv -> $pos, %score {
        say join "\t",
            ($pos+1).fmt("%2d"),
            %score{@labels}.map( * / %score.total )».fmt("%.2f")
    }