# make 8 random aliens
@lifeforms = map { RandomSpaceTraveller->new(); } (0..8);
# find out who is klingon
@klingons = grep { $_->get_species() eq 'klingon' } @lifeforms;
# blow the klingons away
foreach (@klingons) { $kirk->shoot_at($_); };