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

##</code><code>##

perl -e '$val = () = (10,20,30); print $val'