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