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