chomp $readline;
       my ($key , $value) = (split /::/, $readline);
       $data_ids{$key} = $value if $key;