perl -MO=Deparse -E '$x = (10,20,30); say $x'