#!/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";

#!/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


foreach my $konso1 (@konsonants) {

    next if ( grep { $konso1 eq $_ } @not_first );

    foreach my $konso2 (@konsonants) {

        next if ( $konso1 eq $konso2 );
        
        next if ( grep { $konso2 eq $_ } @not_second );

        print $konso1, $konso2, $/;
    }
}
    

#!/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;

foreach my $konso1 (@konsonants)
{
    foreach my $konso2 (@konsonants)
        {
                next if ( $konso1 eq $konso2 );
                if ( grep { $konso1 eq $_ } @not_first )
                {
                        next if ( grep { $konso2 eq $_ } @not_second );
                }
        print $konso1, $konso2, $/;
                $j++;
    }
}

print $j;

local $\ = $/; # ausserhalb der Schleifen
[...]

print $konso1, $konso2; # $\ wird automatisch am Ende angehängt