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