use Modern::Perl;
use Array::Utils qw( array_minus );
use Data::Dumper;
use Koha::Database;
use Koha::Exceptions;
-