my ($confid); my @passset = ('a'..'z', 'A'..'Z', '1'..'9'); for (my $i = 0; $i < 16; $i++) { my $randum_num = int(rand($#passset + 1)); $confid .= $passset[$randum_num]; }