in reply to Re^9: Marilyn Vos Savant's Monty Hall problem
in thread Marilyn Vos Savant's Monty Hall problem

How about ? 

my $MontysChoice;
if( $doors[ choice ] ne 'car' ) {
    $MontysChoice = grep{ $doors[ $_ ] eq 'car' } 0 .. 2;
}
else {
    $MontysChoice = ( grep{ $_ != $choice } 0 .. 2 )[ rand 2 ];
}

[download]
Examine what is said, not who speaks.
"Efficiency is intelligent laziness." -David Dunham
"Think for yourself!" - Abigail
"Memory, processor, disk in that order on the hardware side. Algorithm, algorithm, algorithm on the code side." - tachyon

In Section Cool Uses for Perl