#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Tie::IxHash;

tie my %general_information, qw(Tie::IxHash);
tie my %ability_scores, qw(Tie::IxHash);

my ($id_name, $filename, $last_name, $first_name, $alignment, $generic_class_name, $class_name, $generic_race, $race, $gender, $experience, $strength, $dexterity, $constitution, $intelligence, $wisdom, $charisma) = qw(test) x 17;

%general_information = (
  "class(es)" => $class_name,
  alignment => $alignment,
  race => $race,
  gender => $gender,
);

%ability_scores = (
  strength => $strength,
  dexterity => $dexterity,
  constitution => $constitution,
  intelligence => $intelligence,
  wisdom => $wisdom,
  charisma => $charisma,
);

sub list_loop { 
  my $hash_ref = shift;
  print "<ul>\n";
  for my $key (keys(%$hash_ref)) {
    my $value = $hash_ref->{$key};
	print "\t<li><strong>".ucfirst $key.":</strong> ".$value."</li>\n";
  }
  print "</ul>\n";
}

print qq{<h2><a href="$filename" id="$id_name">$first_name $last_name</a></h2>\n};
list_loop(\%general_information);
list_loop(\%ability_scores);