@Vocal = ("a","e","i","o","u");
# oder, leichter zu lesen:
@Vocal = qw/ a e i o u /;
# entsprechend:
@konsonant = qw/ B C D F G H J K L M N P Q R S T V W X Z /;