my @available;
if ( $door[ $choice ] eq 'car' ) {
  # Can't beat him yet
  @available = grep { $choice != $_ } 0 .. 2;
}
else {
  # Make him lose!
  @available = grep { $doors[ $_ ] eq 'car' } 0 .. 2;
}