tie my %characters, qw(Tie::IxHash);
%characters = (
  "Awnday Ar'iemay" => {
    experience => 250000,
    classes => ["thief/rogue","mage/wizard"],
  },
  "Amelda Bacoulan" =>  {
    experience => 8800,
    classes => ["psionisist"],
  },
  "Sarria Bagada" =>  {
    experience => 4555,
    classes => ["priestess of Torm/specialty_priest/priest"],
  },
  "Verago Brystar" =>  {
    experience => 94150,
    classes => ["priestess of Mystra/specialty_priest/priest","mage/wizard"],
  },
  "Matea Fi'nashari" =>  {
    experience => 2500,
    classes => ["fighter/warrior","thief/rogue","mage/wizard"],
  },
);