Fisher Yates Shuffle Perl Implementation http://en.wikipedia.org/wiki/Fisher%E2%80%93Yates_shuffle