my %values;
foreach my $item (keys %$in ) {
	print "(ITM) => $item\n";
	print "(VAL) => ", $in->{$item}, "\n";
	$values{"oid_$item} = $in->{$item};
}
foreach my $val ( keys %values ) {
	print "$val is $values{$val}\n";
}