my (@array, $scalar) = (1, 2, 3);
print(scalar(@array), "\n");         # 3
print(defined($scalar)?1:0), "\n");  # 0