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);
####
$sth->execute(@school{qw{location name type address description}});
####
$sth->finish();
$dbh->disconnect();