Select Code to Download

$USERNAME = 'my_name';
$PARM1    = 'USERNAME';
print "$$PARM1\n";

my $array_ref = @foo;
my $hash_ref  = %bar;
my $obj_ref   = new Foo::Bar;