50¢ Coin Flip

This coin flipper uses a perl script to generate twenty thousand one (1) and zero (0) then randomly shuffles the array of 1 & 0's.

It then selects only half of the array, then counts how many 1's are in the subset. If there are more 1's than 0's the result is heads. If not then the result is tails.

This script actually runs three seperate times to give the results that it gives, so you are getting a pretty good unique array of 1's and 0's each time you run it.