open(In,"dict.txt");
while(<In>){
chomp;
if(/(.+)=>(.+)/){
$hash{$1}=$2;
}
}
close(In);
while(1){
print "plese input a word:\n";
$input=<stdin>;
chomp($input);
if(defined $hash{$input}){
print "translation:\n$hash{$input}\n";
}
else{
print "not found!\n"
}
}
