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

##</code><code>##

sub A {
    if ( exists $OBJ->{$p} ) {
        my $q = $OBJ->{$p};
        $q = &$<package_name>::formatThis($q);
        print FH "$p=$q ";
    }

  my $formatThis = sub {
    my $x = @_;
      my $y = sprintf ( "%.2f", $x);
      return $y;
  };
}