format_c@server:~/perl_scripts> cat test.pl && perl test.pl Be
use strict;

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

chomp (my $eingabe = shift);

if (exists $hash{$eingabe}) {
        print "Abkuerzung $eingabe => $hash{$eingabe}\n";
}
else {
        die "Keine gueltige Abkuerzung\n";
}

Keine gueltige Abkuerzung
format_c@server:~/perl_scripts>