use DBI;
my $dbh = DBI->connect(...);
my $sql_insert = q{
    insert into school_tbl 
    (location, name, type, address, description)
    values
    (?, ?, ?, ?, ?)
};
my $sth = $dbh->prepare($sql_insert);

# Bei jedem Durchgang dann:

$sth->execute(@school{qw{location name type address description}});

$sth->finish();
$dbh->disconnect();