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

##</code><code>##

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

##</code><code>##

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