おい、<$h{in}>で困ってたやつ。下のコード試してみろ：
readline($h{in)