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