$age = 42;
$ref_age = \$age;
@stooges = ("curly", "Larry", "Moe");
$ref_stooges = \@stooges;
print $age;
print $$ref_age;
print @stooges;
print $ref_stooges;