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{<h1 id="$id">$name</h1>\n};
  print qq{\t<p>}.print_classes($experience,@classes).qq{</p>\n};
  print qq{\t<p>Experience: $experience</p>\n};
}