$index .= pack 'd', tell FILE while ;