my %hash = (
   Apfel => 'gruen', 
   Banane => 'gelb',
);

my $wert = 'Apfel';

print "Farbe: ",$hash{$wert},"\n";