perl -le'$foo{ (qw/ar0n tye/)[rand 2] }++ for 1..1000; print "tye was blamed $foo{tye} times.\nar0n was blamed $foo{ar0n} times."'
tye was blamed 516 times.
ar0n was blamed 484 times.