##
for my $name (keys %characters) {
my $id = $name;
$id =~ s! !_!g;
$id =~ s![^-\w:.]!!g;
my $experience = $characters{$name}{experience};
my @classes = @{$characters{$name}{classes}};
print qq{$name
\n};
print qq{\t}.print_classes($experience,@classes).qq{
\n};
print qq{\tExperience: $experience
\n};
}
##
##
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"],
},
);