while (@sugar) { pop @sugar; } my (@a, @b, @c); my $bran = [ \@a, \@b, \@c ];