my @Vocal = qw(a e i o u);
my @Konsonant = ('B' .. 'Z');
my $Silbe = $Konsonant[rand(@Konsonant)].$Vocal[rand(@Vocal)];