$ref= $refs{unpack("N",$str)};