Or even...

my @arr = ('A'..'Z');
my $n = 2;
my $combo;
$combo .= $arr[rand @arr] for (1..$n);
print "$combo\n";
[download]