Select Code to Download

${${$VAR1}[0]}{41}

my $VAR2 = [ 101, 201, 42 ];

...

-------
101 101

my $VAR3 = [ {'101'=>'hel', '201'=>'lo', '42'=>'world'} ];

...

-------
world world

print $VAR3->[0]{42};
---
world

my @VAR4 = ( {'101'=>'hel', '201'=>'lo', '42'=>'world'},' dereffed' );

...

-------
HASH(0x3e81a4) dereffed world world