my @array = ();
print defined(@array)?1:0, $/;  # 0
print scalar(@array)?1:0, $/;   # 0
push(@array, 'bla');
pop(@array);
print defined(@array)?1:0, $/;  # 1
print scalar(@array)?1:0, $/;   # 0
undef(@array);
print defined(@array)?1:0, $/;  # 0
print scalar(@array)?1:0, $/;   # 0