use strict;

my %ShortToLong =("A"=>"Ambiente","Bed"=>"Bediener","Bl"=>"Blumen","K"=>"Kellner","Bel"=>"Beleuchtung");
my %LongToShort = reverse %ShortToLong;

sub checkit
{
   my ($word) = @_;   
   return $ShortToLong{$word} || $LongToShort{$word} || "";
}

print checkit("A"),"\n";
print checkit("Blumen"),"\n";
print checkit("esskar"),"\n";

#!/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 -