my %data_ids;
  my $count = 0;
  while ( # loop through lines from file ) {
    $count++;
    chomp $readline;
    my ($key , $value) = (split /::/, $readline);
    if (defined $key and $key ne '' and defined $value and $value ne '') {
      $data_ids{$key} = $value;
    } else {
      warn "No key-value pair from line $count: $readline\n";
    }
  } # end loop