my ($a1) = (55,77,99);
print $a1."\n";

##</code><code>##

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