Help for this page

Select Code to Download

Select or download this

foreach (qw/Strength Intelligence Wisdom Dexterity
             Constitution Charisma/) {
...
  }
  print "\n";
}

Select or download this

printf "%s\t%s\n", $_,
  join "\t", 
   map { int(rand(6)) + int(rand(6)) + int(rand(6)) + 3 } (1 .. 6)
    for (qw/Str Int Wis Dex Con Chr/);