$name = "foo";
    $$name = 1;	# Sets $foo
    ${$name} = 2;	# Sets $foo
    ${$name x 2} = 3;	# Sets $foofoo
    $name->[0] = 4;	# Sets $foo[0]
    @$name = ();	# Clears @foo
    &$name();	# Calls &foo() (as in Perl 4)
    $pack = "THAT";
    ${"${pack}::$name"} = 5;	# Sets $THAT::foo without eval