my %letters; 
          
for my $x ('A'..'Z') { 
  $letters{$x}=int(rand(10)+1); 
}