#!/usr/bin/perl use strict; use warnings; use diagnostics; foreach my $name (keys my %characters) { my $id = $name; $id =~ s/ /_/g; $id =~ s/[^-\w:.]//g; my $experience = $characters{$name}{'experience'}; my(@classes) = @{$characters{$name}{'classes'};}; print qq[
" . print_classes($experience, @classes) . "
\n"; print "\tExperience: $experience
\n"; }