#!/usr/bin/perl
use strict;

my $slovo;          #pojem, nacteny ze vstupu
my $uspech = 0;     #byl nalezen zadany pojem?
my %pojmy = (
    "Perl" => "programovací jazyk",
    "Ankara" => "turecké hlavní město",
    "uran" => "chemický prvek",
    "Uran" => "planeta",
    "Klaus" => "2. prezident České republiky",
    "dioda" => "elektrotechnická součástka"
);

print "Zadej pojem: ";
chomp ($slovo = <STDIN>);

#hleda shodujici se pojmy se zadanym a tiskne je
foreach my $pojem (keys %pojmy){
    if (lc $pojem eq lc $slovo){
        print "POJEM $pojem --- $pojmy{$pojem}\n";
        $uspech = 1;
    }
}

print "Zadaný pojem není ve slovníku :(\n" unless $uspech;