use strict;
use Math::NumberCruncher;

my @chars = ( 'A' .. 'Z' );
Math::NumberCruncher::ShuffleArray( \@chars );
foreach my $char ( @chars ) {
    print $char, "\n";
}