$test="scott";
$main::{$test} = "skot2";
print "As you see, ($scott) and ($main::scott) aren't here\n";
$$test = "surprise!";
print "Now ($scott) and ($skot2) and ($main::scott) have decided to show up\n";