需要遍历哈希：
$str = 'abc';%h = ('abc'=>123, 'def'=>456,);for $k (keys(%h)) { if($k eq $str) { $v = $h{$k}; printf("$k => $v.\n"); }}
