my (@array,$var) = $variable