my $string1 = rand_string();
my $string2 = rand_string();
my $string3 = rand_string();
my $string4 = rand_string();
my $string5 = rand_string();
my $string6 = rand_string();
my $string7 = rand_string();
my $string8 = rand_string();

sub rand_string {    
    my @chars = ('A'..'Z');                 
    my $length = 0;                         
    my $temp_string = '';                       
    for (0..$length) {                      
        $temp_string .= $chars[int rand @chars];  
    }                                       
    return $temp_string;       
}