my @available = grep {
    $door[ $choice ] eq 'car' ? ( $_ != $choice ) : ( $doors[ $_ ] eq 'car' )
} 0 .. 2;