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