die "Erstes Argument muss [a-d] sein\n"    unless $key =~ m/^[a-d]$/;