$name .= chr 65 + int rand 26 for 1..3 + int rand 3;
print $name;