$ 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