Select Code to Download

# This code is not tested. Sorry.
sub _find_var_loop {
...
sub find_var { # usage: my @names = find_var($var);
  return _find_var_loop(\%main::, "", \$_[0])
}