Select Code to Download

    Use of uninitialized value in subroutine entry at ...
and
    Can't use string ("") as a subroutine ref while "strict refs" in u
+se at ...

sub A {
    if ( exists $OBJ->{$p} ) {
...
      return $y;
  };
}