#!/usr/bin/perl
use strict;
use warnings;
use Text::Abbrev;

my %woerter = abbrev qw/Ambiente Bediener Blumen Kellner Beleuchtung/;

for my $wort (qw/A Bed K Ke Kell Be Z/) {
    printf "%-10s => %s\n",$wort, ($woerter{$wort} || "- nicht definiert -");
}

_ _END_ _
A          => Ambiente
Bed        => Bediener
K          => Kellner
Ke         => Kellner
Kell       => Kellner
Be         => - nicht definiert -
Z          => - nicht definiert -