#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();