while ( @delete ) {
        my @files = splice( @delete, 0, 100 );

        my $sth_delete = $db->prepare( 'DELETE FROM SECCHI WHERE filepath IN ('
                . join ( ',', ( ('?') x @files ) )
                . ')' );
        $sth_delete->execute( @files )
                or warn "Couldn't delete files";
}