print $name .= chr 65 + int rand 26, "\n" for 1..3 + int rand 3;