Multilayer dereferencing question

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

I'm messing around with dereferencing arrays, and was curious why the following portion of this code involving the hash doesn't work:

my @array1 = (
'abc',
'def',
'ghi',
'jkl'
);

my $s1 = \@array1;
my $s2 = \$s1; 

my %hash = ( 'key' => $s1 );
my $hash_s = \%hash;

print(@$$s2); # works
print(@$$hash{'key'}); # doesn't work
[download]

If I remove the @, both lines will print out an array reference. I understand how to make it work, just curious about if there's something with hashes that makes them work a little differently? Thanks

Comment on Multilayer dereferencing question Download Code

Replies are listed 'Best First'.
Re: Multilayer dereferencing question by Anonymous Monk on Mar 13, 2018 at 13:57 UTC
Sorry I copied it over wrong, the print statement should be `print(@$$hash_s{'key'});`	[reply] [d/l]
Re^2: Multilayer dereferencing question by choroba (Cardinal) on Mar 13, 2018 at 14:04 UTC
`@$$hash_s{key}` is a shorter way of writing `@{ ${ $hash_s } }{key}` [download] but you need `@{ ${ $hash_s }{key} }` [download] which is usually written `@{ $hash_s->{key} }` [download] as the arrow operator is more readable than the circumfix dereference. ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]