#!perl

my %data_ids;
while(my $line = <DATA>) {
    chomp $line;
    my ($key, $value) = split /::/, $line;
    $data_ids{$key} = $value;
    print $key, " => ", $value, "\n";
}

for my $key (keys %data_ids) {
    print $key, " ==> ", $data_ids{$key}, "\n";
}

# or just
print $data_ids{'chipId'}, "\n";
print $data_ids{'subversid'}, "\n";

__DATA__
chipId::1925
subversid::0001