Select Code to Download

use strict;
use warnings;
...
    if ( $envelope==min($a,$b) and $answer eq 'low' ) or ( $envelope==
+max($a,$b) and $answer eq 'high' );
}
printf"Correct ones: %20.17f%%, theoretical odds: %20.17f%%\n", 100*$c
+orrect/$n, 50+50*(chose(max($a,$b))-chose(min($a,$b)));