# shuffle - I'll do it in pure perl.