sub name { my ($arg) = @_; if (ref $arg) { $$arg = 'x'; return; } else { return 'x'; } } [download]
In reply to Scalar and void subroutines by eff_i_g