Or, if you're an illusionist, you could cast Mirror Image.

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

Much less resource-intensive. Of course, it's all a moot point since you spend all your time creating an army and never attack or defend anything.

*Woof*