my  $lexical="Value";
our $dynamic="Value";

##</code><code>##

#assuming warnings and strict
our $Variable="Variable";
our %Variable=(hash_key=>"Variable");
our @Variable=split(//,"Variable");
sub Variable{
  return "Variable";
}
open Variable,">>c:/temp/variable.txt" or die "Couldnt open! $!";
{
    no strict 'refs';
    *Other_Variable=*Variable;
}
$\="\n"; $,=",";
print $Other_Variable;
print keys %Other_Variable;
print @Other_Variable;
print Other_Variable();
print Other_Variable "Written to Other_Variable at ".localtime();

##</code><code>##

sub dump_symbol_table {
	print "SYMBOL TABLE\n-------------------------------------------------------\n";
	foreach my $key (sort keys %::) {
		next unless $key=~/^[\x20-\xff]/;
		(my $value=$::{$key})=~s/([\x00-\x1f])/sprintf("\\x%02x",ord($1))/ge;

		printf "%20s = %-20s\n",$key,"'$value'";
	}
	print "\n";
}


BEGIN { dump_symbol_table }
END   { dump_symbol_table }

##</code><code>##

      Other_Variable = '*main::Variable'   
                    ...
            Variable = '*main::Variable' 
                    ...
                   \ = '*main::\'          
                   _ = '*main::_'