$loop=5;
{
$total=100000;
for (1..$total) {
  rand > .5 and $x++ and next;
  $y++;
}
$xp=$x/$total*100; $yp=$y/$total*100;
$xd=50-$xp; $yd=50-$yp;
print "X: $x ($xp%) $xd\nY: $y ($yp%) $yd\n";
$loop-- and redo;
}

##</code><code>##

X: 49790 (49.79%) 0.210000000000001
Y: 50211 (50.211%) -0.210999999999991
X: 50071 (50.071%) -0.070999999999998
Y: 49930 (49.93%) 0.0700000000000003
X: 49781 (49.781%) 0.219000000000001
Y: 50220 (50.22%) -0.219999999999999
X: 50080 (50.08%) -0.0800000000000054
Y: 49921 (49.921%) 0.0790000000000006
X: 49898 (49.898%) 0.102000000000004
Y: 50103 (50.103%) -0.102999999999994
X: 50033 (50.033%) -0.0330000000000084
Y: 49968 (49.968%) 0.0319999999999965