#! perl -slw
use strict;
use Data::Dump qw[ pp ];
use List::Util qw[ shuffle ];
use Time::HiRes qw[ time ];

our $N //= 1e3;
our $S //= 1e4;
our $Z //= 5;

my @bools = (0) x $N;

my @sets = map [
    map int( rand $N ), 1 .. 1 + int( rand $Z )
],1 .. $S;

my @someOrder = shuffle 0 .. $N-1;

my $start = time;
for my $next ( @someOrder ) {
    $bools[ $next ] = 1;
    for my $set ( reverse 0 .. $#sets ) {
        if( grep( $bools[ $_ ], @{ $sets[ $set ] } ) == @{ $sets[ $set ] } ) {
            splice @sets, $set, 1;
        }
    }
}
printf "Took %.6f\n", time() - $start;

__END__
C:\test>junk27
Took 11.623000