#! /usr/bin/perl

use strict;
use warnings;

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 {
  my @possible_hits;
  foreach(values(%hash)){
    push(@possible_hits,$_) if(substr($_,0,length($eingabe)) eq $eingabe);
  }

       if(scalar(@possible_hits) == 1){
         print $eingabe," => ",$possible_hits[0];
       }
       else{
         print "ungültig";
       }
}