while(my $clone = (ref $self)->new) {
  push @{$army}, $clone;
}