my ($choice);			# The user's choice.
my ($name);			  # Person's name
my ($date);			  # Birthday
my (@birthdays);		 # List of Birthdays.
my ($key);