my @Konsonant = grep { !(lc $_ ~~ [@Vocal, 'y']) } ('A' .. 'Z');