http://www.perlmonks.org?node_id=385605


in reply to Marilyn Vos Savant's Monty Hall problem

You still miss a int: 
$goat = rand(3);

[download]
should be 
$goat = int rand(3);

[download]


$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g

In Section Cool Uses for Perl