my @seed=('a'..'z',2..9);
my $rand='';
foreach(0..7){
  $rand.=$seed[rand(@seed)];
}