#!/usr/bin/perl

$test1 = "value of test1";
$test2 = "test1";
$test3 = "Why are you here?";

# refers to *main::test1
print "=>$main::{$test2}<=\n";

print "Original \$test1: ...$test1...\n";

$main::{$test2} = "test3";

# $main::{"test1"} = "test1";
print "\$test1 = >>", $test1, "<<\n";
print "Main package: ", $main::test1, "\n";