my $scalar_ref = \10;
my $x = ${$scalar_ref}; 
print "$x\n";   #10

my $arr_ref = [1,2,3];
my @arr = @{$arr_ref};
print "@arr\n";   #1 2 3

my $sub_ref = sub {print "hello\n"};
&{$sub_ref}();

##</code><code>##

#setup:
-------
$color = 10;
@color = (1,2,3);
sub color {print "hello\n"};
-------

$c = ${"color"};  #grab the scalar slot for 'color'
print "$c\n";     #10

@arr = @{"color"};  #grab the array slot for 'color'
print "@arr\n";     #1 2 3
 
&{"color"}();   #grab the subroutine slot for 'color' 
                #and execute the sub