$kirk->shoot_at( $_ ) for
    grep {
        $_->get_species eq 'klingon'
    } map {
        RandomSpaceTraveller->new
    } 0 .. 8;