Select Code to Download

package RolePlaying::Classes;

...
}

1;

for my $name (keys %characters) {
  my $id = $name;
...
  print qq{\t<p>}.print_classes($experience,@classes).qq{</p>\n};
  print qq{\t<p>Experience: $experience</p>\n};
}

tie my %characters, qw(Tie::IxHash);
%characters = (
...
    classes => ["fighter/warrior","thief/rogue","mage/wizard"],
  },
);