creating a character table from genetic strings (rosalind problem)

cstr-grondilu.pl

my @dna = lines;

my @c = @dna[0].comb;

for ^@c -> $c {
    my $count = 0;
    my @line = map { $count += my $x = +so .comb[$c] eq @c[$c]; $x }, @dna;
    say @line.join if 1 < $count < @dna-1;
}

# vim: ft=perl6