sub ReadDataInHash()