Randomize bases of a sequence that you've been given.
Both the rand() and srand() don't seem very random. I wonder if it is the perl version that I'm using or what.