my %a2 = ( x=>4, y=> scalar (5,7,9) );
print $a2{'y'} . "\n";