for ( 1 .. 3 + int rand 3 ) {
  print $name .= chr 65 + int rand 26;
}