$ListPeople = ();
$ListPeople = &ListOfNames;
$counter = 0;
while( $ListPeople[$counter][0] ne "" ){
	print "$counter. What is my Name: $ListPeople[$counter][0] $ListPeople[$counter][1] $ListPeople[$counter][2]\n\n";
	$counter++;
};

sub ListOfNames{
	$LON = ();
	$LON[0][0] = "Tim";
	$LON[0][1] = "O";
	$LON[0][2] = "Tay";
	
	$LON[1][0] = "John";
	$LON[1][1] = "Fitz";
	$LON[1][2] = "Gerald";
	
	$LON[2][0] = "Gerald";
	$LON[2][1] = "Fitz";
	$LON[2][2] = "John";

	return( $LON );
};

exit(0);