foreach (qw/Strength Intelligence Wisdom Dexterity
             Constitution Charisma/) {
  printf "%-15s", $_;
  for (1 .. 6) {
    printf "%2d\t", int(rand(6)) + int(rand(6)) + int(rand(6)) + 3;
  }
  print "\n";
}