Select Code to Download

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

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