sub stable_shuffle {
# VERY BROKEN, do not use!
# My intent was to turn the seed into a number,
# and then use it to pick a predictably random
# item off of the array.
#	my $seed = join '', map ord, split //, shift;
#	return map {splice(@_, $seed % @_, 1)} @_;
}

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
srand(1); # Or whatever known value.
use List::Util 'shuffle';
my @arr = ('A' .. 'Z');
print "$_\n" for shuffle @arr;