# perl dice.pl
Sorted: 3 3 4 5 7 7 7 9
Before culling: 3 5 7 4 7 9 7 3
After culling: 5 7 4 7 9 7