print "$mine->{"ptr"}->{"val"}";            # This seems to work
$mine->{"ptr"}->{"init"}(object1, object2); # This does not work