my @letter=('A'..'Z');
@rand='';

foreach(0..7){
$rand.=$letter[rand(@letter)];