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