Whenever you find yourself trying to get around strict 'refs' by using variables with dynamically generated names, ask yourself whether you wouldn't be better off using a hash instead (the answer is almost always that you are). E.g. in base.pm, rewrite the last bit as:

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";
}
[download]

Philosophy can be made out of anything. Or less -- Jerry A. Fodor