#!/usr/bin/perl -w

@konsonants = ( "p", "b", "t", "d", "k", "g", "m", "n", "f", "v", "h", "ch", "l", "r", "s", "sch", "ts", "ds", "tsch", "dsch", "x" ); #21
@not_first = ( "p", "b", "t", "d", "k", "g" ); #6
@not_second = ( "p", "b", "t", "d", "k", "g", "m", "n", "ts", "ds", "tsch", "dsch", "x" ); #13

$j = 0;
$konso1 = 0;
$konso2 = 0;

$len_not_first = @not_first;
$len_not_second = @not_second;

# CC

foreach $konso1 (@konsonants)
{
        foreach $konso2 (@konsonants)
        {
                if ($konso1 eq $konso2) { next }
                
                for ($i = 0; $i < $len_not_first; $i++)
                {
                        for ($y = 0; $y < $len_not_second; $y++)
                        {
                                if ($konso1.$konso2 ne $not_first[$i].$not_second[$y]) { next }
#                               if ($konso1 ne $not_first[$i]) { }
#                               elsif ($konso2 ne $not_second[$y]) { }
                                else
                                {
                                        print $konso1.$konso2."\n";
                                        $j++;
                                }
                        }
                }
        }
}
                                
        print $j;
        print "\n";