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