my $selected;
for my $candidate ( ... ) {
    $selected= $candidate;
    last
        if  ...;
}