use List::Util 'first';
sub check_for_winner {
    return first { get_result($_) == $target } @population
}