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