open IN, 'name.dat';
while (<IN>) {
　chomp;
　my @tmp = split /,/;
　$name2age{$tmp[0]} = $tmp[2];
}
close IN;
print $name2age{'健太'};
ハッシュのキーに漢字ってキモいな