use List::Util qw(shuffle);
my @arr     = ('A'..'Z');
my $combo   = join '', (shuffle(@arr))[0..1];
print "$combo\n";
[download]

Your solution, toolic, is nice but not equivalent to the original script; the original could choose two elements that are equal; yours can't... ;-)
[]s, HTH, Massa (κς,πμ,πλ)

Fair enough -- I guess I focussed more on the description rather than the code of the OP:

Is there a way to select multiple values from the array without repetition?

I interpreted the description as meaning "unique" elements of the array, which my solution will provide. So, there seems to be a discrepancy between the OP description and code.

A little more generally you could:

  my @arr = ('A'..'Z');
  my $n = 2 ;
  my $combo = join '', map { $arr[rand @arr] } (1..$n) ;
  print $combo . "\n";
[download]

Whatever you do, don't do:

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

Of course it doesn't work, you say, it's obvious... However, I have, ahem, a friend who once (once was enough):

  my @arr = ([]) x $count ;
[download]