sub CLEAR {
  $_[0] = [ {} ];
}