while(my $clone = \$self) {
  push @{$army}, $clone;
}