./fisher_yates.pl : after 5000 trials shuffling arrays of size 1000:
List::Util::shuffle : 1690 successes, mean:0.0104611128054915, stdev:0.00886345338184372
BUK : 1658 successes, mean:0.0102429744950854, stdev:0.00848038138137249
tybalt89 : 1652 successes, mean:0.0105683142305418, stdev:0.00899061563593633