1 東京 国語 山田
2 千葉 数学 佐藤
3 埼玉 物理 金子


open(FILE,"./log.txt");
@hoge=<FILE>;
close FILE;

foreach (@hoge){
@temp=split(/\s/,"$_");
($hage,$hige)=("$temp[0]","$temp[3]");
$word{$hage}="$hige";
}

print "number :";
chomp($a=<stdin>);
print "$word{$a}\n";