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

my @array=("Ambiente","Bediener","Blumen","Kellner","Beleuchtung");

chomp (my $eingabe = shift);


if (scalar(my ($wert)=grep(/$eingabe/,@array)) == 1) {
        print "Abkuerzung $eingabe => $wert\n";
}
else {
        die "Keine gueltige Abkuerzung\n";
}

Keine gueltige Abkuerzung
format_c@server:~/perl_scripts>