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