Select Code to Download

# $formatThis is not known here

...
}                           # end of subroutine

# from here on $formatThis is not known

sub A {
    my ($OBJ,$p) = @_;
...
$ref->{'float'} = 3.1415926;
A($ref);         # get a sub
A($ref,'float'); # now doit