$a = THIS_IS_IN_SCALAR;
$a = (THIS_IS_STILL_IN_SCALAR);
@b = THIS_IS_IN_LIST;
@b = (THIS_IS_STILL_IN_LIST);

##</code><code>##

$a = ($x, $y, <DATA>);