$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;
}