for (@a) {
   push @a, ...;    # XXX Avoid
   splice @a, ...;  # XXX Avoid
   pop @a;          # XXX Avoid
}