use strict;
use warnings;
use Data::Dumper;

my @letter_array = ();
my @letters = ('A' .. 'Z');

foreach my $letter (@letters) {
    my $selection = int rand 4;
    push @{$letter_array[$selection]}, $letter;
}

print Dumper(\@letter_array);