add entry

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();



    }

}