my $clone = ref $self;

# want to build an army in minutes?

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

# this has chiling implications...

--
Casey