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