#!/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;