sub thatroutine(\$) { # do something to ${$_[0]} }

sub thisroutine
{
     return $_ if thatroutine local $_;
     ...
     my $namedvar;
     return $namedvar if thatroutine $namedvar;
}