#!/usr/bin/perl -w
use strict;

my @chars = ( 'A' .. 'Z' );

for (0 .. $#chars){
    my $randomIndex = rand( @chars );
    print "\n$chars[$randomIndex]";
    splice( @chars, $randomIndex, 1 );
}

exit;