$VAR1 = ['x','b','c'];   # sub foo
$VAR1 = [];              # sub bar ()
$VAR1 = [1];             # sub quz ($)
$VAR1 = [1, ['b','c']];  # sub baz ($\@)