$ perl -Mstrict -Mwarnings -E 'my %a2 = ( x=>4, y=> scalar (5,7,9) ); say $a2{y}'
Useless use of a constant (5) in void context at -e line 1.
Useless use of a constant (7) in void context at -e line 1.
9

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my %a2 = ( x=>4, y=> (5,7,9) ); say $a2{y}'
5

##</code><code>##

$ perl -Mstrict -Mwarnings -E 'my %a2 = ( x=>4, y=> (5,7,9) ); say $a2{y}; say $a2{7}'
5
9