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;
  };
}