my $VAR2 = [ 101, 201, 42 ]; print $VAR2->[0],' ',${$VAR2}[0]; ------- 101 101