for (@array) {
  $$_ = OBJ->new;
  ...
}