Select Code to Download

my $dbh = DBI->connect(
    $connect_string,
...

die "Couldn't connect to DBI\n" unless $dbh;
$dbh->{RaiseError} = 1;

for ( my $i = 0; $i < scalar(@mini) ; $i++ )
{
...
    delete $mini[$i]{$_}
        for qw(MajorDescription MajorKey hits);
}