my $rand;
$rand .= ('a' .. 'z', 2 ..9)[rand 34] foreach 0 .. 7;
print $rand;