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