Select Code to Download

my %keys = qw( monster 0 hp 1 size 2 AC 3);
my    @data = ( [qw(troll 30 10 2)],
                [qw(dwarf 20 2 9 )],
...
   print  "name @$line[$keys{'monster'}] \n";
   print "\thas @$line[$keys{'hp'}] hit points\n";
}

name troll
        has 30 hit points
name dwarf
        has 20 hit points
name pixie
        has 2 hit points