my @a = ("zero", "one", "two", "three");
my @b = @a;           # LIST context
my $c = @a;           # SCALAR context

if (@a) {
}

while (@a) {
}