foreach my $statement ( 'vacuum', 'vacuum analyze' ) {
my $sth = dbh->prepare($statement) or die dbh->errstr;
$sth->execute or die $sth->errstr;
foreach my $statement ( 'vacuum', 'vacuum analyze' ) {
my $sth = dbh->prepare($statement) or die dbh->errstr;
$sth->execute or die $sth->errstr;