my %player;

$player{1}{boss} = 0; # top player has no boss
$player{2}{boss} = 1;
# etc.

$player{1}{slave}[0] = 2;
$player{1}{slave}[1] = 3;
$player{1}{slave}[2] = 4;
 
$player{1}{points} = 42;