$a = (3,2,1);
print $a;  # 1