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

##</code><code>##

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

##</code><code>##

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