PTypeName{0}='corkscrews';
{...}

PTypeNumber{'corkscrews'}=0;
{...}

for (i=0;i<16;i++){
   print "PTypeNumber{PTypeName{i}}, PTypeName{i}\n";
}