Help for this page
... elsif ( ref($data) eq '' ) { $_[0] = $subref->($data); } ...
... if ( ref($data) eq 'HASH' ) { ... } ... # and the same for arrays