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

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

my $j = 0;
{
    local $\ = "\n"; # $/ vermieden; wer weiss, was da drin steckt ;o))

    foreach my $konso1 (@konsonants) {
        foreach my $konso2 (@konsonants) {
            next if ( $konso1 eq $konso2 );
            next if ( grep { $konso1 eq $_ } @not_first and grep { $konso2 eq $_ } @not_second );
            print $konso1, $konso2; # $\ wird angehangen
            $j++;
        }
    }

    print $j; # $\ wird angehangen
}