Select Code to Download

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

for ( 1 .. 100_000 ) {
    my @door = 0 .. 2;
...
    ## Count my wins if I stick or switch
    $my_pick == $car_door ? $stick++ : $switch++;
}