sub addEntry {

	

       		

	print"Please enter their name: \n";

	chomp (my $name = <STDIN>);

	$name = lc($name);

	if (exists $phonebook{$name}){

		print"$name is already in your phonebook\n";

	} else {

		print"Please enter their phone number (123 4567): \n";

		chomp (my $phone = <STDIN>);
		

		$phonebook{$name} = $phone;

		my $sth; # statement handle

		$sth = $dbh->prepare('INSERT INTO Phonebook (name, Phone)

                      VALUES (?, ?)'

                    )

       			or die "Can't prepare SQL: " . $dbh->errstr();

		$sth->execute("$name", "$phone")

       			or die "Can't execute SQL: " . $sth->errstr();

       		$sth->finish();

		

	}

}