undef %h; 
++$h{ join'', map $chars[ rand @chars ], 1 .. 25 }  for 1 .. 1e7; 
print scalar keys %h;;
10000000