my $self =<<__END_OF_EVIL_GUY__
Sinister, dominating, loud, deep laughing tall guy with
many weapons to hurt you with.
__END_OF_EVIL_GUY__

##</code><code>##


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