if (length($input)>0){
    print "<p><b>".$input."</b></p>";
    
    my $firstLetter = substr( $input, 0, 1 );

    open DICTE, "dict" . $firstLetter . ".txt" or die $!;

    while (<DICTE>){
        chomp;
        ($english, $lang, $irreg, $clss) = split(/;/,$_); 

        if ($input eq $lang){ 
            print "<p>$english - $lang, $clss</p>";
        } 
        if (conj("$lang;present;1;singular") eq $lang){ 
            print "<p>$english - $lang, $clss</p>";
        } 
        if (conj("$lang;present;2;singular") eq $lang){ 
            print "<p>$english - $lang, $clss</p>";
        } 

    }
}