kcott already gave you some valid pointers for your problem.

However, if you have to do more work on this database or perhaps you need to write more scripts to extract data or manipulate data, then it is a good investment of your time to look into something like DBIx::Class].

Yes, it takes some learning and it takes some time to set-up the classes for your database, especially if you want to have the relational part right, but once you have done that, using this database becomes a breeze.

Believe me I speak from experience: before I used DBIx::Class I had to write every time I needed to write a new script for that database, again and again very similar code (connecting to the database, writing SQL, setting up the loops to select, insert, delete, ...). Now all these chores just become standard methods of your class.

Adding a next record, could become as simple as:

my $new_school = $schema->resultset('Schools')->create({
    location    => 1,
    name        => 'mySchool',
    type        => 'HighSchool',
    adress      => 'Paris Champs Ellysees 1',
    description => 'Ecole Superieur',
});
[download]

Searching for a record is equally simple:

my $rs = $schema->resultset('Schools')->search({name => 'mySchool'});
[download]

Once found, you could extract the fields like this:

my $school = $rs->first;
print $school->adress;
[download]

Updating the record? Even easier!

$school->adress('New address of the school');
$school->update;
[download]

BTW: for your problem, try adding some or die $dbh->errstr; code to your do statements. You will then be able to see what went wrong.